FFFFFFFFFFEFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DODDDDDDDDDDD 

FFF DDD DOD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFFFFFFFFFFF DDD DDD 
FRFEFFFFFFFFE DDD DDD 
FFFFERFFFFFF DDD DOD 
FFF DDD DDD 
FFF DOD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDDDDDDDPDDD 

FFF DDDDDDDDDDDD 

FFF DDDDDDDDDDDD 


LLL 
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- 

; 
FFFFFFFFFF DDDDDDDD LL CCCCCCCC AAAAAA LL LL e 
FFFFFFFFFF DDDDDDDD LL cccccccc AAAAAA LL LL | : 
FF DD DD LL cc AA AA LL LL : 
FF DD DD LL cc AA AA LL LL : 
FF DD DD LL cc AA AA LL LL : 
FF DD DD LL CC AA AA LL LL : 
FFFFFFFF DD DD LL CC AA AA LL LL : 
FFFFFFFF DD DD LL CC AA AA LL LL ; 
FF DD DD LL cc AAAAAAAAAA LL LL : 
FF DD DD LL CC AAAAAAAAAA LL LL . 
FF DD DD LL cc AA AA LL LL mata : 
FF DD DD LL cc AA AA LL LL se | : 
FF DDDDDDDD LLLLLLLLLL CCCCCCCC OA AA LLLLLLLLLL LLLLLLLLLL aia : 
FF DDDDDDDD LLLLLLELLLL CCCCCCCC OAA AA LLLLLLLLLL LLLLLLLLLL aiden | : 

; 
LL IIIIII SSSSSSSS | : 
LL LIIII1 SSSSSSSS : 
LL 11 SS : 
LL II SS : 
LL I] SS . 
LL I] NR) | ° 
LL II SSSSSS 3 
LL Il SSSSSS 3 
LL II Ss 3 
LL II ss 3 
LL I] SS 3 
LL I] Ss | 5 
LLLLLLLLLL HII SSSSSSSS : 
LLLLLLLLLL HII SSSSSSSS : 
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14-Sep-1984 12:31:1 DISKSVMSMASTER:CFDL.SRCJFOLCALL .B32;1 (1) 
00 ZTITLE ‘VAX-11 FOL Utilities’ 
00 MODULE FDLCALL ( IDENT="V04-000', 
$3 ADDRESSING_MODE ( EXTERNAL = GENERAL ), 
4 a $e la ( NONEXTERNAL = GENERAL ), 
00 OPTLEVEL= 
0 $e 


BEGIN 
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'® * 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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; 3 0 ¢ 1! 
5 4 0 1! 
; 5 034 1! 
3 $ 035 1! 
3 00 $ 1! 
; 8 4 1! 
3 9 038 1! 
; 40 Be 9 1! 
we 040 1! 
3 $g sod 1! 
: 6 9) 7% 
3 44 bbe 1! 
: 45 044 1! 
>; 646 0045 1! 
3; 7 D066 1! 
3 48 004 1! 
; 49 0048 1! 
; 2 0049 1! 
i. Se 0050 1: 
3 26 0051 1 

> me O26 1! 
; 0053 1! 
; 0054 1! 
; 0055 1! 
, or 8938 EE. 
a. 2 0057 1! 
; 39 0058 1! 
; & 0059 1! 
s 6) 0060 1! 
; «662 0061 1! 
3 63 0062 1! 
; & 0063 1! 
; 6 0064 1! 
3 0065 1! 
> & 0066 1! 
; 0067 1! 
: & 0068 1! 
:. 0069 1! 
i wa 0070 1! 
a 0071 1! 
3 73 0072 1! 
> 0073 1! 
a 0074 1! 
; 7 075 1! 
a 076 1! 
> rm 0077 1! 
3; |6|U6f9 0078 1! 
: 80 0079 1! 
: H 0080 1! 
3 0081 1! 
ce 44-t4 1! 
; 00835 1! 
; 0084 1! 
; a6 008s 1! 
: Boss 1! 
5 8 087 1 ! 
; ©6889 0088 1! 
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Facility: 
Abstract: 


Contents: 


Environment: 


Author: 


Modified by: 


VAA-11 FDL Utilities 


Callable routines 


VAX/VMS 


Keith B 


v03-015 


v03-014 


v03-013 


v03-012 


v03-011 


v03-010 


Operating System 
Thompson Creation Date June-81 


JWT019 pia, Tooque ~ 2-Aug-1984 
RRBOO19 clears the ‘‘valid stmt flag'’ on entry to all 
routines in this module. When FDLSCREATE calls 
FDOLSPARSE without a statement number argument, the 
flag is cleared and remains off on return to 
FDLSCREATE, even if it was specified on entry to 
FDLSCREATE. 


RRBO0019 Rowland R. Bradley 17-Apr-1984 
Clear valid statement flag upon entry to all major 
entry routines. This fixes an elusive bug whic 
appears on multiple calls to the these routines. 


RAS0290 Ron Schaefer 10-Apr-1984 
Fix interface to FOLSGENERATE so that the output 
string descriptor/return Length are processed 
correctly for return FOL strings. 


KFHOO12 Ken Henderson 8 Oct 1983 
Recomment call to FOLSRELEASE 

in FDOLSCREATE until pesky bug 

can be fixed in FOLSRELEASE! 


KFHOO11 Ken Henderson 23 Aug 1983 
Uncomment call to FOLSRELEASE 
in FOLSCREATE 


Fix calls to GET_VM and FREE_VM. 
Fix accvio if FOCSGL_PCALL is 0. 


KFHOO10 Ken Henderson 29 Jul 1983 
Fixed arg checking in FDOLSGENERATE 
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Check status of calls to LIBS... 


KFHOOO9 Ken Henderson 26 Apr 1983 
Add [retlen] to FDLSGENERATE call. 


Ag pe - Henderson 
Add Cretlen),CstsJ],{stvJ parameters 
to FDLSCREATE call. 


KFHOO07 Ken Henderson 
jonporer tly comment out the call to 
FDLSRELEASE in FDLSCREATE = to let 
regression tests of CJF work. 


KFHOO006 Ken Henderson 
Fixed allocation of NAM block in 
FDLSCREATE 


KFHOOOS Ken Henderson 
Moved alloc/dealloc of FDL$AB pate KE 
to FDLS$SCHECK_BLOCKS in FOLGEN.B32 


KFHOOO4 Ken Henderson 
Added allocation and deallocation 
of FDLSAB_AREA_BKZ in FDLSRELEASE 


KFHOO03 Ken Henderson 
Mods to FDOLSPARSE to support 
he Die bg and stmnt-num 
Mods to FDOLSCREATE to support 
stmnt-num 

Fixed call to LIB$SIG_TO 


RET 
Finished FDOLSRELEASE, FOCSGENERATE 


KFHOOO2 Ken Henderson 
Added FDLSAB_PARSE 

Changed FOLSSPARSE fo FDOLSPARSE 
Added FDOLSGENERATE, FOLSRELEASE 


KFHOOO1 Ken Henderson 26 March 1982 
Added calls to LIBSANALYZE_SDESC to generat ize string 
handling; and added call to LIBSSCOPY_DXDX to move 
the result string to the output also add buffer for 
upcasing to. 


14 Apr 1983 


22 Mar 1983 


6 Jan 1983 


5 Jan 1983 


4 Jan 1983 


22 Nov 1982 


6 Oct 1982 
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Feb og 135 1 

: 138 1 : 1 PSECT 

: 139 137 1 W = _FDLSOWN (PIC), 

: 140 138 1 GLOBAL = “FDL$GLOBAL (PIC) 

> 141 139 1 PLIT = “FOLS$PLIT (SHARE PIC), 

; 4g 140 CODE = “FDLSCODE (SHARE ,PIC); 

: 144 Oi4¢ 1 LIBRARY 'SYSSLIBRARY:STARLET'; 

> 145 143 1 REQUIRE ‘SRCS:FDLUTIL': 

> 146 0528 1 REQUIRE "LIBS: FDLPARDEF '; 

> 147 0867 1 | 
; 148 Beo8 1 EXTERNAL ROUTINE 
> 149 69 1 LIBSANALYZE_SDESC, 

: 150 0870 1 LIBSSCOPY_DRDX, 

> «(151 0871 1 LIBSSCOPY"R_DX, 

; 138 O87¢ 1 LIBSESTABLISH | 
: 15 0873 1 LIB$SSIG_TO_RET, 

: 154 0874 1 LIBSGET-VM; 

: 155 0875 1 LIBSFREE_ VM, 

: 156 0876 1 LIBSTPARSE, | 
: 157 0877 1 FDLSS$CHECK BLOCKS, 
: 158 0878 1 FDLS$GEN_SPEC, | 
: 159 0879 1 FDLSSGET-VM, | 
: 160 0880 1 FDLSSFREE_V 
: 161 0881 1 FDLSSINIT-PARSE : NOVALUE, | 
: 19¢ 0882 1 FDLSSFINISH PARSE, 
: 16 0883 1 FDL$SRMS_OPEN_ERROR : NOVALUE; 
> 164 0884 1 
: 165 0885 1 FORWARD ROUTINE | 
: 166 0886 1 FDLSPARSE, 

167 0887 1 FDLSRELEASE, | 
: 168 0888 1 HANDLER; | 
: 169 0889 1 

: 170 0890 1 EXTERNAL | 
> 171 0891 1 FDLSAB_CTRL : BLOCK C_,BYTE J, | 
: 12 0892 1 FDLSAB-BLOCK_BLK : VECTOR C'4,LONG J, 
: 17 0893 1 FDLS$GL~PCALL | 
> 17% 0894 1 FDLS$GL-INVBLK_PTR, 

: 175 0895 1 FDL$GL~ST : | 
: 176 0896 1 FDLSGL~MAXL INE | 
> 177 0897 1 FDLSAB_OUT_STRING REF DESC_BLK, | 
> 178 0898 1 FDL$AB_FDL~STRING : DESC_BLK> | 
: 179 0899 1 FDLSAB_LINE : DESC"BLK, | 
3 180 09 01 FDL$AB_UPCASED : DESCTBLK, 

> (181 & FDLSAB_KEY_TABLE, 

3 13 0902 1 FDL$AB_STATE_TABLE, 

: 18 0903 1 FDLS$AB-TPARSE_BLOCK : BLOCK C ,BYTE ]; 

> 184 0904 1 

; 185 0905 DEF INE_ERROR_CODES; 

: 189 309 1 GLOBAL 

; 188 908 1 FDLSAB_FDL_RAB : $RAB_DECL, 

> 189 0909 1 FDLS$AB-PARSED_FAB : REF BLOCK ; BYTE J, 

; 190 ae FDLSAB~PARSED-RAB : REF BLOCK C {BYTE J: 

: 198 316 1 GLOBAL BIND 

: 19 0913 1 FDLSAB_GENFAB = FDLS$AB_PARSED_FAB : REF BLOCK C BYTE J, 


Kk 4 
ve 008 sep hese tie We=SEB=13B2 PRi8tiTF WME UWSAA TERS CPC SRCSroLcALL.032;1°%° «35 
; 19% 0914 1 FDLSAB_GENRAB = FDLSAB_PARSED_RAB : REF BLOCK C BYTE J; | 
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TE 12-8 08- 1 ope OF gt 43 DISKSVMSMASTER:CFDL.SRCJFDLCALL.832;1 . (4) 
XSBTTL 'FDLSCREATE' | 
GLOBAL ROUTINE FDLSCREATE = 


ict 


o— 
=2— 
m 

>" 


Functional Description: 


This routine calls FDLSPARSE to parse the FDL spec and then 
creates the file and closes it. It is called by CREATE/FDL. 


Calling Sequence: 


late jlolelelelelelealelelelelealelelelelelelelelelelelolo Mas 
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SS. 1 ; 
H 139 1 : 
; 198 1! : 
; 199 1! $ 
; 200 1 ! ; 
: $0) 1 
3 8 1! 3 
> 204 1! H 
: 205 1! ; 
> 206 1! ; 
3; ¢Or 1 3 fdl$create( fdl_desc : 
; 208 . 5 »fTle_name] : 
3 «eur 1; -default_name) | : 
; 210 1! -result_name] ‘ 
3 11 1! -fid_block | ° 
3 \¢ 1} - flags] : 
: $1 1! -stmnt-num) : 
> 214 7% eretlen) . 
3 15 1! »sts . 
: 216 1! C,stv] ) . 
; 217 1! : 
; $18 : : Input Parameters: : 
; 220 1! fdl_desc - descriptor of the fdl file name string (required) ; 
3 $$ a. file_name - descriptor file name to overide the name specified ; 
; $§ 1} in the fdl file (optional) ; ; 
3 ge 0942 1! default_name - descriptor default file name to overide the default : 
; 235 Bez : name specified in the fdl file (optional) : 
: 226 0945 1! flags - address of flags longword (optional) ; : 
; 22? 0946 1! FDL$V_SIGNAL Signal errors instead of returning ; 
; 228 0947 1! FDL$V_FDL_STRING input fdl-spec is a char string ; 
3 $93 0948 1! FDLS$V_$CACLBACK used by EDF : 
; @n 0949 1! ; 
ae +) 0950 1 ! Implicit Inputs: : 
; én 0951 1! none ; 
3 @33 boe§ z : 
; S3e baer : : Output Parameters: : 
3 $3 9955 1! result_name - descriptor to receive the file name which was created ; 
: $30 B28 , (optional) : 
; $23 958 1! fid_block - address of a 3 lonqword used block to receive the fid : 
; me 3484 : of the file created (optional) : 
: 4g 0961 1! stmnt-num - address of longword to recieve statement : 
3 ei O38 : number (optional) : 
: 245 964 1! retlen - address of longword to recieve length of resultname : 
3 m4 3902 : string (optional) : 
3 $8 0367 i : sts - address of longword to recieve FABSL_STS from $create : 
; 256 03 > : stv - address of longword to recieve FABSL_STV from $create : 
s $2) 0971 1! Implicit Outputs: : 
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none 


Routine Value: 


success or error code 


Side Effects: 
none 


BEGIN 

BUILTIN 
ACTUALCOUNT 
ACTUALPARAMETER; 

OWN 
CREATE_DESC : DESC_BLK; 

LOCAL 
ESA_ADDR, 
RSA_ADDR, 
COURT, 
FLAGS by REF BLOCK BYTE }- 
CREATE_FAB : REF BLOCK C ,BY ; 
CREATE _RAB : REF BLOCK C ,BYTE . 
NAME _BCOCK : REF BLOCK C ,BYTE J, 
XSTATUS : LONG, 
STATUS : LONG; 

BIND 
STATUS_CODE = STATUS : BLOCK C 4,BYTE ]; 


Set up handler to control errors 
LIBSESTABLISH ( HANDLER ); 


Clear the valid stmnt flag as a fix... should always be cleared on entry 


FDLSAB_CTRL C FDLSV_STVALID ) = _CLEAR; 

Check the validity of the call 

Get the number of arguments 

COUNT = ACTUALCOUNT(); 

Check if the number is legal ie. 1 thru 10 

- ( .COUNT LSS 1 ) OR ( .COUNT GTR 10 ) 
RETURN FDL$_ILL_ARG; 

Get flags argument - to pass it on 

IF ( .COUNT GTR 5 ) 
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v04- FOLSCREATE 14-Sep-1984 12:31:17 DISKSVMSMASTER: CFDL.SRCJFDLCALL.B32;1 (4) | 
; 310 1029 THEN 
3 11 1030 FLAGS = ACTUALPARAMETER (6) 
: \¢ 1031 ELSE 
; 10 § FLAGS = 0; 
3 14 10 
: 15 13 4 ' Get stmnt-num argument 
: 316 1035 ‘ 
; i? 18 $ IF .COUNT GTR 6 
: yp 1° ml FDLSGL_STNUMPTR = ACTUALPARAMETER (7) 
o | 
; 1 isi FDLSGL_STNUMPTR = 0; 
; 5 ok IF .FDLSGL_STNUMPTR NEQU 0 
; 5 1044 FOLSAB_CTRL C FDLSV_STVALID J] = _SET 
; ; 6 1045 ELSE 
: 7 1046 FDOLSAB_CTRL C FDLSV_STVALID J = _CLEAR; 
: 328 1047 
; 329 1048 BEGIN 
; 330 1049 
3 31 1050 LOCAL 
; 332 1051 FDL_DESC_PTR; 
; 2 1926 
3; 6334 105 
3 $32 1938 The first argument should be the FDL file spec. 
s 337 1056 FDL_DESC_PTR = ACTUALPARAMETER(1); 
: 338 1057 
: 44 1928 Parse the FDL file 
3 6341 1060 4 IF NOT ( STATUS = FDLSPARSE( .FDL_DESC_PTR,CREATE_FAB,CREATE_RAB,.FLAGS,O, 
3 ri} 1061 4 -FOCSGL_STNUMPTR *, 
: 4 1996 THEN 
3 344 106 
; 345 1064 ! If there was a yerniane just signal it and try to create the file 
3 re 1362 ; else return (error and severe) 
: £8 H's 4 4 IF ( ,STATUS_CODE C STSS$V_SEVERITY ] EQLU STSS$K_WARNING ) 
; 350 1069 SIGNAL( .STATUS ) 
3; 5351 1070 
3 6 1071 RETURN .STATUS 
ae > 1076 
3 54 107 END; 
3 399 1074 
5 2$ 1075 
; 2 1976 ! See if the a second parameter was given. If so the this is the name 
3 58 107 ' to be used for the created file. 
: 359 1978 ! 
: 360 107 IF ( .COUNT GIR 1 ) 
3 361 1080 THEN 
3 $¢ 1081 BEGIN 
: 6 10 § 
3 re) 3 Z LOCAL WNAME_DESC : REF DESC_BLK; 
: 366 1085 NAME_DESC = ACTUALPARAMETER(2); 
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Allow for wierd strings (Like VARYING or byte-arrays) 
RET_ON_ERROR( LIBSANALYZE_SDESC( .NAME_DESC,LENGTH,ADDR ) ); 
IF ( .LENGTH NEQ 0 ) AND ( .ADDR NEQ O ) 
THEN 
BEGIN 
If a file name was given to replace any given in the FDL spec. 


CREATE_FAB C FABSB_FNS ) = .LENGTH; 
CREATE-FAB C FABSL-FNA ) = .ADDR; 


END; 
END; 
END; | 


! See if the 3rd parameter was given. If so this is the default name 
to be used for the created file. | 


if ( .COUNT GTR 2 ) 
THEN 

BEGIN 

LOC 
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VO%=000 DLSCREATE 12-8 08- 1 3R2 as oe DIEKSVMEMASTERSCYDL SRCTFDLCALL.B32;1°%° (4) 
7 8 
7 JF _( NAME DESC NEQ 0 ) | 
89 BEGIN 
9} LOCAL | 
x nt} 
094 ‘ , 
95 
39 
98 
99 


‘DEFAULT DESC : REF DESC_BLK; 
DEFAULT_DESC = ACTUALPARAMETER(3); 
IF ( .DEFAULT_DESC NEQ 0 ) 

BEGIN | 
LOCAL 


LENGTH : WORD, 
ADDR : LONG; 


Allow for wierd strings (Like VARYING or byte-arrays) 
RET_ON_ERROR( LIBSANALYZE_SDESC( .DEFAULT_DESC,LENGTH,ADDR ) ); 
IF ( .LENGTH NEQ 0 ) AND ( .ADDR NEQ O ) 

BEGIN 

If a default name was given, put it in the FAB as well. 

CREATE_FAB C FABSB_DNS ) = .LENGTH; 
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CREATE_FAB C FABSL_DNA J] = .ADDR; 
END; 
END; 
END; 


Build a name block for the fab returned by fdl$$parse 


x 
ew 
ao 
xz— 
mn 
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i Allocate the space for the name block and buffers: 


nam nam$k_bln 


esa_buf_siz | 
rsa_buf_siz | 


NAME_BLOCK = FDLSS$GET_VvM( wae K_BLN ); 
ESA_ADDR = FDLSS$GET_VA( ESA_BU UFoSIi ); 
RSA_ADDR = FDLSS$GET~VM( RSAn “BUF "SIZ ); | 
Init the name block | 
p SNAM_INIT ( NAM = .NAME_BLOCK, 
Pp ESA = .ESA_ADDR 
P ESS = ESA BUF Si2, 
Pp = .RSA_ADBR 
RSS = RSA_BUF_SiZ ); 


Connect the name block 

CREATE_FAB C FABSL_NAM ] = .NAME_BLOCK; 
Create the file 
Errors will be create error 

CREATE_FAB C FABSL_CTX J = FOLS_CREATE; 


! If this is from dcl then set the error handler to signal fdl error 
and the rms error else return normally 


iF .FDLSAB_CTRL C FOL$V_DCL J 
STATUS = SCREATE( FAB=.CREATE_FAB,ERR=FDLSSRMS_OPEN_ERROR ) 
STATUS = SCREATE( FAB=.CREATE_FAB ); 
Output the STS if it’s required. 
if .COUNT GTR 8 
THEN 
BEGIN 
LOCAL 
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>; 481 1200 STS : LONG; : 
: 4 ¢ 1201 : 
i 488 1206 STS = ACTUALPARAMETER (9); ; 
> «485 1 ve IF .STS NEQ 0 ; 
; 6 1205 THEN ; 
: 487 1 88 : 
; 488 120 -STS = .CREATE_FAB C FABSL_STS ); ‘ 
; 489 1208 : 
> 490 1209 END; ‘ 
>; 491 1210 ‘ 
; 49 1211 ! Output the STV if it's required. ‘ 
; 49 1 \§ ' ‘ 
> 494 121 if .COUNT GTR 9 : 
> 495 1214 ; 
: 496 1215 BEGIN : 
: 497 1216 : 
; 498 121 LOCAL : 
> 499 1218 STV : LONG; ‘ 
PY 500 1219 | e 
; $0) : ? STV = ACTUALPARAMETER (10); ‘ 
; 208 1 ¢ IF .STV NEQ 0 : 
3; 504 1 THEN ; 
; 505 1224 : 
; 506 1225 -STV = .CREATE_FAB C FABSL_STV J; : 
; 507 1 8 : 
: 508 1 END; ; 
; 509 1228 : 
; 219 : $3 If there was an error creating the file return fdl$_create to the user | ‘ 
g 2\¢ 1231 IF NOT .STATUS ‘ 
; 3 1 3 : 
> 514 123 STATUS = FDLS_CREATE; : 
; 313 1234 ; 
3 218 \$3? SCLOSE( FAB=.CREATE_FAB ); : 
3 318 1539 ' See if the 4th parameter was given. If so return the result name. | : 
: ah \see NOTE: This is where the user can get access to allocated memory : 
3 Sel 1240 IF ( .COUNT GTR 3 ) : 
; 3 § 1241 | 3 
; > 1 rt: BEGIN 3 
; 524 124 ; 
3 eo 1244 3 
: 526 1245 RETLEN : LONG, | : 
: : 7 124 RESULT DESC : REF DESC_BLK : 
: 28 124 TEMP_DESC : DESC_BLK PRESET ( f DSC$B_CLASS } = DSCSK_CLASS_S, : 
. % , ' rs DSCSB_DTYPE = DSCSK_DTYPE_T ); : 
: ; 1 ' 39 RESULT_DESC = ACTUALPARAMETER(4); : 
5 is 1 26 IF .RESULT_DESC NEQ 0 : 
: : 125 THEN : 
3 5 1254 4 BEGIN : 
: : 1255 4 3 
3 1256 4 IF ..RESULT_DESC NEQ 0 : 
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BEGIN 


! If a result name desc was given, stuff it with 
the best name for file which was created (or attempted) 


! First try the resultant string 
IF _ NAME BLOCK C NAMSB_RSL ? NEQU 0 
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TEMP_DESC C DSCSW_LENGTH ] = .NAME_BLOCK C_NAMSB_RSL ); 
TEMP_DESC C DSCSA_POINTER ) = .NAME BLOCK C NAMSC_RSA 3; 


RET_ON_ERROR( LIBSSCOPY_DXUX( TEMP_DESC,.RESULT_DESC ) ) 


END 


Next try the expanded string 
ELSE IF .NAME_BLOCK C NAMSB_ESL ] NEQU 0 
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BEGIN 


TEMP_DESC C DSCSW_LENGTH J] = .NAME_BLOCK C_NAMSB_ESL J; 
TEMP_DESC C DSCSA_POINTER J] = .NAME_BLOCK C NAMSC_ESA J; 


RET_ON_ERROR( LIBSSCOPY_DXDX( TEMP_DESC,.RESULT_DESC ) ) 


END 


If all else fails use the name string 
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BEGIN 


TEMP_DESC ([ DSCS$W_LENGTH J] = .CREATE FAB C FABSB_FNS J; 
TEMP_DESC C DSCSA_POINTER ] = .CREATE_FAB C FABSC_FNA 4; 


RET_ON_ERROR( LIBSSCOPY_DXDX( TEMP_DESC,.RESULT_DESC ) ) 


END; 


Output the length of the resultname string if required. 


-COUNT GTR 7 
HEN 


BEGIN 
RETLEN = ACTUALPARAMETER (8); 
IF .RETLEN NEQ 0 
THEN 
BEGIN 


-RETLEN = .TEMP_DESC C DSCSW_LENGTH J; 
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END; 
END; 
END; 
END; 
END; 
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: If the caller wants a file id get it 
iF ( .COUNT GTR 4 ) 
THE 
BEGIN 
LOCAL FID_BLOCK : REF VECTOR C,LONG J); 
FID_BLOCK = ACTUALPARAMETER(S); 
IF .FID_BLOCK NEQ 0 
THEN 


BEGIN 
FID_BLOCK (0) = — -BLOCK C NAM$W_FID_NUM 
FID-BLOCK C1) = .NAME_BLOCK [£ NAM$W_FID_SEQ 
FID-BLOCK (2) = “NAME “BLOCK C NAM$W_FID-RVN 
END; 

END; 


Deallocate the memory used during the parse 
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i 
i THIS CALL TO FOLS$RELEASE IS THE pean a Tekin PART OF resem eretit 
! FOLSRELEASE ns Fae AN OBSCURE ERROR IN USING LIBSFREE V T 

i MUST BE FIXED FOR FT2. UNTIL THEN FOL SCR EATE WILL WORR™ FINE BY JUST 
NOT CALLING PDLSRELEASE = AND FDLSCREATE GETS VERY HEAVY USE. 

i geeteeeereeereeneeeeeeeeeeeeeeereeeetrereeeeeeeteeneneeeeeeeeeeeeeeereees 


; RET_ON_ERROR ( FDLSRELEASE( CREATE_FAB,CREATE_RAB,.FLAGS ) ) 


° 
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RETURN .STATUS; 
END; 
“TES COLeALL vant FOL Utilities 
-PSECT _FDLSGLOBAL,NOEXE, PIC,2 
00000 FDLSAB ~FoL peers 
00044 FDOLSAB ~PARSED . FAB:: 
00048 FDLSAB_PARSED_RAB: : 
-BLKB 4 
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.PSECT _FDLSOWN,NOEXE, PIC,2 
00000 CREATE_DESC: 
-BLKB 


8 
FOLSAB_GENF AB== FDLSAB_PARSED_FAB 
FDLS$AB_GENRAB== FDL$AB-PARSED_RAB 
.EXTRN LIBSANALYZE_SDESC 
-EXTRN LIBSSCOPY_DRDX, LIBSSCOPY_R_ DX 
-EXTRN LIBSESTABCISH 188816 TO-RET 
[EXTRN LIBSGET_VM, LIBSFREE_VA 
-EXTRN LIBSTPARSE, FDLSSCHECK_BLOCKS 
-EXTRN FDLSSGEN SPEC, FOLSS$GET_VM 
-EXTRN FDLSSFREE_VM, FDLSSINIT_PARSE 
.EXTRN FDLSSFINISH ARSE 
-EXTRN FDLSSRMS_OPEN 
EXTRN FOLSAB_ CTRL FoL SAB BLOCK_BLK 
-EXTRN FDLSGL_PCALL, FDLSGC_INVBCK_PTR 
-EXTRN FDLSGL-~STNU bRPT TR 
-EXTRN FDLSGL-MAXLINE, FOLS$AB_OUT_STRING 
EXTRN FDLS$AB-FDL_STRING 
EXTRN FDL$AB_LINE, FDLS$AB_UPCASED 
EXTRN FDLS$AB-KEY_fABLE 
-EXTRN FDLSAB_STATE TABLE 
-EXTRN FDL$AB_TPARSE_BLOCK 
-EXTRN FDLS_FACILITY> FDL$_FAO_MAX 
-EXTRN FDL$_ABKW, FDLS_ABPRIKW 
EXTRN FDLS$-CREATE, FOC$_CREATED 
EXTRN FOL$_CREATEDSTM 
~EXTRN FL SF DLERROR. FDLS_ILL_A 
-EXTRN FDL S_INSVIRER ° FoLs INBLK 
-EXTRN FOLS_INVDATIM, FDOLS 
EXTRN FDLS$-MULSEC, FDLS NOQUAL” 
EXTRN FDLS-NULLPRI, FDLS_OPENFDL 
EXTRN FDLSOUTORDER, FDL$_OPENOUT 
EXTRN FOLS_WRITEERR, FDL$_READERR 
-EXTRN FODLS_RFLOC, FDL$_TITLE 
-EXTRN POLS SINT AR. FOLS VALERI 
-EXTRN FDLS_ UNQUAKY » FOLS_UNPRIKW 
.EXTRN FDLS-UNSECKW, FDOLS$~ VARNING 


“EXTRN SYSS$CREATE, MW, JEDLS A 
.PSECT _FDLSCODE,NOWRT, SHR, PIC,2 


OFFC 00000 ENTRY FDLSCREATE, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 0916 
58 000000006 00 i 9002 HOVAB FDL SAR, CTRL, R11 ; 
0 ¢2 0000 SUBL ; | 
E o0000000v 0 SF G000C PUSHAB HANBL ER : 1008 
000000006 00 01 FB 0018 CALLS ", t TBSESTABLISH : | 
02 04 BA 001 BICB FDL$AB_CTRL#2 : 1012 
5 6C 9A 4 MOVZBL (AP), COUNT : 101 
05 15 BLEQ ~=s:‘1$ : 1022 
OA D1 CMPL OUNT, #10 ; | 
08 13 BLEO : 
50 000000006 8F D 1$: MOVL  #FDLS_ILL_ARG, RO t 1024 | 
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L Utilities 16-Sep-1984 01:37:4 VA 
14 at es eee I :CF 
SBTTL ‘FDLSPARSE' 
LOBAL ROUTINE FDLSPARSE = 
Functional Description: 


This routine parses an FDL spec (either file or string) and stuffs 
the RMS control blocks with the information. 


Calling Sequence: 


fdl$parse( fdl_spec, 
fdl_fab_pointer, 
fdl_rab_pointer 
-ttags 
df lt-fdl-spc) 
»stmnt=-num) ) 
Input Parameters: 
fdl_spec - descriptor of the input fdl file name string (required) 
flags - address of flags longword (uptional) 
FDLSV_SIGNAL signal errors instead of returning 
FDOLSV_FDL_STRING input fdl-spec is a char pores 
FDLS$V_DEFAULT_STRING input eS is a char string 
FDL$V_SCALLBACK used by EDF (FDLSPARSE only) 
dflt-fdl-spc - descriptor of the default FDL SPEC (optional) 
Implicit Inputs: 
none 


Output Parameters: 


fab_pointer - address of a longword to receive the address of the 
filled in fab (required) 
rab_pointer - address of a longword to receive the address of the 


filled in rab (required) 


stmnt-num - address of longword to recieve statement 
number (optional) 


Implicit Outputs: 
none 

Routine Value: 
none 

Routines Called: 
fdl$$get_vm 
Lib$get_vm 
Lib$free_vm 


Side Effects: 
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none 


BEGIN 


ILTIN 
ACTUALCOUN 


ACTUAL BARAMETER: 


BY 
FAB_POINTER, 
RAB- POINTER, 
STATUS 


TMP SPEC 
DFLT SPEC 
FDL_SPEC 


Set up handler to contro 


5 
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H BYTE, 
: BYTE, 
H WORD, 
: REF BLOCK C ,BYTE J, 


: LONG, 


LIBSESTABLISH ( HANDLER ); 


Clear the valid stmnt flag as a fix... 
FDLSAB_CTRL C FDLS$V_STVALID } = 


CLEAR; 


Get the number of arguments and see if it's right 


COUNT = 
IF ( ¢ 
THEN 


ACTUALCOUNT (); 
-COUNT LSS 3 ) OR ¢ 


-COUNT GTR 6 ) ) 


RETURN FDL$_ILL_ARG; 


and get the FDL SP 

FDL SPEC = ACTUAL PARAMETER 
FAB_-POINTER = 
RAB_POINTER = ACTUALPARAME 


Check ‘em out 


if ( 
( ;f AB _POINTER EQLU O ) OR ( 
RETURN FDL$_ILL_ARG; 


RID FE GEN IMNININIPINININYNIN CAPDIPYNYDPINIPINYPINYNINIPININYNINPINIPINYPIPPPYPIPIPOPONPONNUNINPY 2 Ss SS 5 
“ 

t 

t 


(1); 
ACTUALPA aye HASTE 
TER(3); 


-RAB_POINTER EQLU 0 ) OR ( 


VAX-11 Bliss-32 V 
Disk SKSVMSMASTER: 


should always be cleared. 


' Get the address or ne of where the caller wants his FAB and RAB 


~-FDL_SPEC EQLU 0 ) 


eis 
CFD Bie SRCJFDLCALL.B32;1 


Page 


( 


9 
) | 


Page 20 

es 237: “11 Bliss-32 V4.0-74 (39 
“pPhsvecoenas 12: 300713 d 533734 DIEKSVMEHASTERSLY DL sae FDLCALL .832;1 | 
VAX=-11 FOL » +f . 
oe ceetell . doing a default parse. : 
3 35 eS Assume we're not doing : 
OS BEE tas ee 
: es 125 CTRL FBLSV 6 LT PRES ] = AR; : 
528 i eas “CTRL Fe FDL$V_R EBARSE 3 = _CCEAR; : 
; 763 1280 IF (€ .COUNT GTR 4 ) : 
; : 
eo wt Pe et 
; 83 1684 DFLT_SPEC = ACTUALPARAMETER (5); : 
BR it ct gree sae Fl 
: 769 148 tes. : 
: 770 1488 4 HBr : 
1290 C FDLSV_DFLT_PRES ; : 
ah 180 § FBLSAB, ETAL. FOLSY ba 
: ae 1038 4 on: | : 
mm IR : i 
: 77% nae : 
i 1436 *t been got already) : 
; 1299 - ument (if it hasn : 
: ae 1497 Get the stmnt=-num arg ee : 
: 13 1299 if NOT .FDLS$AB_CTRL C FDL$V_STVALI 1 
: 781 : 
: 1500 THEN : 
: i 1501 BEGIN : 
; PRs 1308 IF aaa GTR 5 ‘eo : 
rao 1208 a FDOLSGL_STNUMPTR = ACTUALPARAMETE : 
: 78 1309 Se OL SGL_STNUMPTR = 0; | 2 
: : 
; 790 1809 IF .FDLSGL_STNUMPTR NEQU 0 | 
4 1 ; 
73 1a4$ NDLSAB_CTRL C FOLSV_STVALID J tn : 
13 184 Se OL SAB_CTRL C FDOLSV_STVALID J) = _CL 3 : 
: rs HE cs OR LOOP FOR DOING THE DEFAULT PARSE, **** ; 
793 1317 ee a ~: : wee THEN THE MAIN PARSE. , 
+ 800 1518 : 
a) 1336 i : 
: f 1336 ath . ssed this way. : 
; B04 13 4 ' Keep track of how many times we've pa , 
DRS e Eco meaeeh : 
: $09 13 : 4 IF ( .PASS GTR 1 ) a ; 
; B10 13 § ; 2 "FDLSAB. CTRL C FDOLSV_REPARSE J = _ ; 


FOLCA VAX=11 FDL Utilities o=se0} 4 7:4 VAX=-11 Bliss-32 V4.0-74 1 
V “060 FDOLSPARSE 1B-se0-1984 9}: 3 3 DISKSVMSMASTER:CFOL.SRCJFDLCALL.832; ‘9 ge 8} 
: 1 1 

3 i$ | ? Allow for wierd strings (Like VARYING or byte-arrays) 

é 1? i § RET_ON_ERROR( LIBSANALYZE_SDESC( .TMP_SPEC,LENGTH,ADDR ) ); 

3 817 : 5 Setup for reparse (if needed) 

: B18 1 ? TMP_SPEC = .FDL_SPEC; 

3 : 1 1272 4 IF ( LENGTH EQLU 0 ) OR ( .ADOR EQLU O ) 

3 $ 5 136) RETURN FDLS_ILL_ARG; 

; 825 1548 FDLSAB_CTRL C FDLSV_DCL J = _CLEAR; 

: 826 1544 FDLSAB_ CTRL FOLSV_ -PCALL ) = ee 

3 eH 130? FDLSAB_ CTRL FDLSV_ STRING G_SPEC = _CLEAR; 

3 899 1547 ; ! Get the flags 

; 850 1548 ! 

s 831 1549 4 IF ( .COUNT GTR 3 ) 

$ Hh 1550 3 HEN 

: 83 1551 4 BEGIN 

3; 834 1226 4 

; 835 155 4 FLAGS = ACTUALPARAMETER (4); 

; 836 1554 4 

; 837 1555 4 IF .FLAGS NEQU 0 

; 838 1556 4 THE 

; 839 1557 5 BEGIN 

: 840 1558 5 

> «6841 1559 5 FDOLSAB_CTRL C FOLSV_PCL J = .FLAGS C F Fos Lm 

; Hh 1209 2 FDLSAB_CTRL C FOLSVI) <ALL J = .FLAGS C DLSV.  SCALLBACK 1; 
4 ' 

ore 1206 : | Guard against garbage flags 

; 846 1564 6 IF ¢ 

; 847 1565 7 (.FDLSAB_CTRL C FDLS$V_PCALL J) 

; 848 1566 6 

; 849 1567 7 (.FDLSGL_PCALL EQLU 0) 

; 850 1568 5 ) THEN 

3 851 1569 5 RETURN FDL$_ILL_ARG; 

s $26 1570 5 

; 85 1571 8 IF (¢ 

: Bee 1376 (.FDLSAB_CTRL C FOLSV_DFLT_PRES J) 

: 856 1574 S (NOT .FDLSAB_CTRL C FDLSV_REPARSE )) 

: 8357 1575 5 ) TH 

; 858 1378 5 FDLSAB_CTRL C FOLSV_STRING_SPEC ] = 

; 859 157 5 -FLAGS C FDLSV_DEFAULT_STRING ] 
3 269 1578 5 ELSE 

: 1 1579 § FDLSAB_CTRL C FOLSV_STRING_SPEC ] = 

: g6¢ 1580 : -FLAGS C FDLSV_FDL_STRING J; 
: 86 1581 

3 «BAS 15 § 4 END; 

; 865 15 4 

3 ry. 1584 END; 

; 86 1585 . 

; 868 1586 ' Setup maximum Line size 
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VO%s000 FDLSPARSE ae eS oe NT EKSUMERASTERSCEDL SRC SFDLCALL 832: ° 85 
; 9 1587 ' ; 
3 eyo } i IF .FOLSAB_CTRL C FDLSV_STRING_SPEC ] ; 
: 87 1590 FDLSGL_MAXLINE = .LENGTH | ; 
; 87 1591 ELSE | ‘ 
3 are } 3 FDLSGL_MAXLINE = FDLSK_MAXLINE; ° 
: Bre ! 9¢ } Set up the fab and name block | ; 
: 878 1 38 i Find the number of bytes needed for all of this which is: : 
: 879 159 : space for the fab, name block, expanded and resultant string buffers . 
; 880 1598 ! the user buffer in the rab and the upcase buffer. NOTE: The upcase buffer : 
3 +t 1238 MUST be allocated directly after the user buffer. | ; 
: 88 1601 i The space is allocated: | ; 
> 884 160 : | ; 
: 885 160 i S OSES EE | : 
; 886 1604 ! ' fab : fab$k_bln ; 
° 887 1605 ' } eee eeeeeseeceeeceeeeeeeee } j é 
; 888 1606 : H nam : nam$k_bln ; 
3 889 1607 ' ' eseeeeeeceoeeeeeeeeece t “ 
; 890 1608 : {| expanded str buffer i: esa_buf_siz : 
: 891 1609 \ | mmeecweceeccccceccccccs ' $ 
3 o36 1610 : | resultant str buffer : rsa_buf_siz ‘ 
: 89 1611 ' | pewecceeccceccceccceecs ' : 
> 894 lelg ' H user buffer | .fdl$gl_maxline : 
3 895 161 ! H eeeceeesoooeocoesoeocescoan ; 4 
; 896 1614 ! H upcase buffer | .fdl$gl_maxline : 
: 897 1615 i ete renenemeenenecce ; 
; 898 1616 ' | 3 
: 899 1617 i : 
; 900 1618 ' Get the address space. NOTE: Since the user never sees this buffer we ; 
: od a can deallocate it when we exit so use Lib$get_vm | ; 
: 90 1654 BYTES = FABSK_BLN + NAMSK_BLN + ESA_BUF_SIZ + RSA_BUF_SIZ + : 
3 ae) lose ( .FDCSGLIMAXLINE * 2); : 
: 906 1626 IF NOT LIBSGET_VM( BYTES, FDL_FAB_PTR ) | ; 
3; 907 1625 THEN : 
: 908 16 § RETURN FDLS_INSVIRMEM; | : 
; 910 1628 ! Zero the space | ‘ 
; 911 1629 ! : 
3 aig 19 ? CHSFILL ( 0,.BYTES,.FDL_FAB_PTR ); . 
; a 4 Set up the location of the user buffer | : 
: 916 1634 USERBUF = -FDL_FAB_PTR + FABSK_BLN + NAMSK_BLN + ESA_BUF SIZ + : 
; ait 5 RSA_BUF _SIZ; : 
: a + $ Prepare for an fdl-spec whether from a file or a string : 
: 921 1839 IF .FDLSAB_CTRL C FDLSV_STRING_SPEC } : 
; = ¢ 1640 THEN ‘ 
3; FF 1641 4 BEGIN : 
: 9246 1966 4 - 
3; 925 1643 4 FDLSAB_FDL_STRING C DSCSW_LENGTH ] = .LENGTH; 3 
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FDLSPARSE 14-Sep-1984 12:31:1 DISKSVMSMASTER: CFDL.SRCJFDLCALL.B32;1 (5) 
iene : FDLSAB_FDL_STRING C DSCSA_POINTER J = .ADDR ‘ 
198 4 END ; 
1647 3 ELSE : 
1648 4 BEGIN : 
1649 4 ; 
1939 ? Initialize the FDL FILE fabs and rabs ° 
P 165¢ 4 SFAB_INIT ( FAB = .FOL_FAB_PTR, ; 
P 165 4 CTX = FOLS -OPERFOL, F 
P 1654 4 DNM = ‘. FOL, 3 
P 192? 4 FAC = GET, . 
P 16 8 4 FNS = .LENGTH, : 
P 165 4 FNA = .ADOR, 3 
P 1658 4 FOP = <SQ0,NAM> é 
1659 4 NAM = .FDL_FAB_PTR + FABSK_BLN ); : 
P 1661 4 SNAM_INIT ( NAM = .FDOL_FAB_PTR + FABSK_BLN, : 
P 1066 4 ESA = .FDL_FAB_PTR + FABSK_BLN + NAMSK_BLN, ° 
P 166 4 ESS = ESA BuF $12 ; 
P 1664 4 RSA = .FOC_FAB_PTR + FABSK_BLN + NAMSK_BLN + ESA_BUF_SIZ, ; 
1665 4 RSS = RSA_BuF_SIZ ); : 
P 1667 4 SRAB_INIT ( RAB = FDLSAB_FDL_RAB, : 
P 1668 4 CTX = FDLS_OPENFDBL, ‘ 
P 1669 4 FAB = .FDL-FAB_PTR, ; 
P 1670 4 RAC = SEQ, 3 
P 1671 4&4 ROP = RAH 3 
P lore 4 UBF = .USERBUF, ; 
1673 4 USZ = .FDOLSGL_MAXLINE ); | : 
1674 4 Ps 
107? ? Open the file : 
Hb 344 ? SOPEN( FAB=.FDL_FAB_PTR,ERR=FDOLSSRMS_OPEN_ERROR ); : 
+4 ? } Connect a stream 3 
1681 4 SCONNECT( RAB=FDLSAB_FDL_RAB,ERR=FDLS$RMS_OPEN_ERROR ); | ; 
1688 2 Errors from now on are read errors | : 
1685 4 FDLSAB_FDL_RAB C RABSL_CTX ] = FDLS$_READERR : 
168? ; END; ; 
1688 3 
1689 4 IF ( .PASS EQLU 1 ) é 
1690 3 THEN : 
1691 4 BEGIN | : 
1698 ? : Get the address space for the Parsed-fab and the Parsed-rab ; 
1695 4 FDLSAB_PARSED_FAB = FDLSSGET_VM( FABSK_BLN ); ; 
1908 ? FDLSAB_PARSED_RAB = FDOLSSGET_VM( RABSK_BLN ); : 
1098 2 Init the Parsed-fab and Parsed-rab (Set some defaults as well) ; 
P 1560 4 $FAB_INIT ( FAB = .FDLSAB_PARSED_FAB, : 
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E 12-38-1382 a es DISKSVMSMASTER:CFDL. 


FOP = <MXV,NAM>, 
= SEQ, 


RAT = CR 
RFM = VAR ); 


SRAB_INIT ( RAB = .FDLSAB_PARSED_RAB, 
FAB = .FDLSAB-PARSED-FAB ); 


} Give the fab and rab to the user 


.FAB_POINTER = .FDLS$AB_PARSED_FAB; 
-RAB_POINTER = .FDL$AB-PARSED-RAB; 


END; 
Initialize the Line buffer and the upcase buffer 
FDLSAB_LINE C DSCSA_POINTER ] = .USERBUF; 


FDLSAB_UPCASED C DSCSA_POINTER J] = .FDLSAB_LINE C DSCS$A_POINTER J + 
-FDCSGL_MAXLINE; 


Initialize the parser 
FDLSSINIT_PARSE(); 
Parse the file 


RET_ON_ERROR ( 
LIBSTPARSE( FDOLSAB_TPARSE_BLOCK ,FDLS$AB_STATE_TABLE,FDLSAB_KEY_TABLE )); 


STATUS = FDLSSFINISH_PARSE(); 
Ang -FDLSAB_CTRL C FDLSV_STRING_SPEC J 
BEGIN 
Close down the FDL file and exit 
SDISCONNECT( RAB=FDLSAB_FDL_RAB ); 
SCLOSE( FAB=.FDL_FAB_PTR ); 
: Deallocate the memory for the fab etc 


BEGIN 

LOCAL STATUS; 

IF NOT ( STATUS = LIBSFREE_VM( BYTES,FDL_FAB_PTR )) 
yp: SLONAL-STOP («STATUS ); 


END; 
END ! OF MAJOR PARSE/REPARSE LOOP 
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FDLSPARSE Or obe 04:30:93 SEKSUMGHASTERSCYDE SRCTFOLCALL.B32:1 - (33 


: 1040 1758 x UNTIL ¢ 

: 1041 1759 4 ( NOT .FDLSAB_CTRL C FDLSV_DFLT_PRES } ) 

; 1948 1761 i .FDLSAB_CTRL C FDLSV_DFLT_PRES ] AND .FDLSAB_CTRL C FDLSV_REPARSE } ) 
: 1045 1588 . 

> 1046 1764 RETURN .STATUS 

> 10467 1765 

: 1048 1766 END; 


.PSECT _FDLSPLIT,NOWRT,NOEXE, SHR, PIC,2 
4C 44 46 2€ 00000 P.AAA: . ASCII \.FDL\ ; 
$RMS_PTR= FDL$AB_FDL_RAB 
.EXTRN SYSSOPEN, SYSSTONNECT 
“EXTRN SYSS$DISCONNECT 


-PSECT _FDLSCODE,NOWRT, SHR, PIC,2 


OFFC 00000 ENTRY FDL SPARSE, Save R2,R3,R4,R5,R6,R7,R8,R9,- ; 1360) : 

SE 28 ¢2 00002 SUBL2 #40. SP : | : 

00000000v 00 9F 0000 PUSHAB HANDLER > 1464 | ; 

000000006 00 01 FB 00008 CALLS #1, LIBSESTABLISH : | ; 
000000006 00 04 8A 00012 BICB2 #4. FDL$AB_CTRL+2 > 1448. : 
58 6C 90 00019 OvB (AP) COUNT + 1453) ; 

03 38 91 0001C CMPB  =s COUNT, # > 1455 ; 

03 1€ OOOTF BGEQU 2$ : ; 

00ED 31 00021 1$: BRW 10$ : | ; 

06 5B 91 00024 28: CMPB = COUNT, #6 : | ; 

F8 1A 00027 BGTRU 1$ : : 

6E AC DO 00029 MOVL 4 (AP), FDL_SPEC : 1462 ; 

10 AE 08 AC DO 0002D MOVL 8(AP), FAB-POINTER : 146 | ; 

OC AE 0c AC D 900 : MOVL 12(APS, RAB_POINTER > 1464 ; 

AE D5 000 TSTL ° FAB_POINTER ; 1469 | ; 

ES 13 OOO3A BEQL ‘1 : ; 

Oc AE 05 0003C TSTL | RAB_POINTER : | F 

EO 13 0003F BEQL =‘ : | : 

6— D 90041 TSTL FDL_SPEC ; ; 

DC 13 0004 BEQL §6:‘1$ : | ; 

08 AE 9% 9004 CLRB  ~—s- PASS > 1475 | ; 

04 AE 6f DO 0004 MOVL FDL SPEC, TMP_SPEC > 1476 ; 
000000006 90 0 BA 00046 BICB2 #3, ~FDLSAB_CTRL+2 ; 1478. ; 
4 5B 91 0005 CMPB OUNT, + 1480 | ; 

11 (1 0096 BLEQU 3$ : | : 

50 146 AC 00 0005 MOVL OCAP), DFLT_SPEC > 1484 _ : 

1 909¢ BEQL & > 1486. ; 

000000006 00 8 99 t BISB2 #2, FDLSAB_CTRL+2 > 1490. : 
A D 6 MOVL  —DFLT SPEC TMP SPEC > 1491 3 

27 000000006 0 2 ; $9 3$: BBS #2, FOLSAB_CTRC+2, 7% > 1499, ; 
; 4 4 CHPB COUNT, a5 : 1503 | : 

000000006 00 18 «AC 09 076 MOVL gh (AP), FDLSGL_STNUMPTR : 1505. : 
06 O7E BRB $ ; | : 
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VO%<000 FDLSPARSE 18-8087 1382 9}; i: 1? DISKSVMSMAS TER: Yor” SRC IFDLCALL.B32; ? oe 88 
000000006 9 D4 0 0 4$: CLRL - FOLSGL_STNUMPTR : 1507 : 
1 5$: BEQL © 6$ + 1509 : 
000000006 00 4 : : Bi sB2 a4, FDLS$AB_CTRL+2 ; 1511, : 
000000006 00 4 BA 0 1 68: BICB2 #4, FDLSAB_CTRL+2 + 1513 : 
08 AE 96 00098 78: INCB —- PASS ; 1323 : 
01 08 AE 91 00098 CMPB sé, #1 + 1527) ; 
8 8 +4 BLEQ 8$ : : 
000000006 00 1 : Al BISB2 #1, FDLSAB_CTRL+2 : 1529 : 
18 AE 9F OOOA8 8S PUSHAB ADOR ; 1533) ; 
20 AE 9F OOOAB PUSHAB LEN : | ; 
C Ar DD OOAE PUSHL P_SPEC : | ; 
000000006 00 : FB 008] CALLS if TL BSANALY ZE. SDESC ; ; 
54 $00RB RET : 3 
04 Ag 6€ b0 OOBC 9S: MOVL FDL SPEC TMP_SPEC + 1537) : 
F CBF F$ Sooce “7 timed | pela ae : 
18 «OA b 0006 TSTL ADDR : ; 
39 13 000C9 EQL_ = 10$ ; : 
canes ae $5 Of 20008 Cee, FouAT beet £4808. 
59 1B 000D BLEQU 148 * : ; 
SA 10 AC 99 99007 MOVL. 16CAP), FLAGS : 1553 ; 
53 13 0000B BEQL 14$ : 1555 ; 
00 01 03 6A FO 0000D INSV (FLAGS), #3, #1, FDLSAB_CTRL#1 + 1559 ; 
50 6A 01 04 EF OO0E6 EXTZV #4, #1, “(ra GS) : 1560 ; 
00 01 02 0 FO 000EB INSV RO, #2. #1, FOL$AB_CTRL+1 : : 
10 000000006 00 02 £1 OO0F4 BBC, #2 FOLSAB‘CTRL#1 “118 : 1565 : 
000000006 00 D3 900F¢ Ist FDLSGL_P Ct sad : 
50 000000006 8F 90 00198 10S: MOVL = AFDLS_ILL_ARG, RO ; 1569 ; 
OE 000000006 00 ot £1 0010C 11$: BBC #1, FDOLSAB CIRLA2, 1 : 1572 : 
07 000000006 00 €E8 O14 BLBS  FDLSAB_CTRE+2 $. : 1574 : 
50 6A 01 Oe EF O01l8 EXTZV #e, #1, (FLAGS), tie 3 
50 6A 01 01 EF 001 é 128: EXTZV #1, #1, (FLAGS), RO : 1580) ; 
00 01 04 50 FO 00127 138:  INSV RO, #4, #1, FDLSAB_CTRL#1 ; | ; 
09 000000006 00 04 €1 00130 14$: BBC #4, FOLS$AB_CTRL+1,~15$ > 1588 ; 
000000006 00 39 06 901 MOVL veh FDLS$GL~MAXL INE ; 1590 : 
000000006 00 0400 BF 3c 00141 15$: MOVZWL #1024, FDLSGL MAXL INE : 1592 : 
000000006 00 014A 16$: MOVL FDL G INE. RO : 16 ; 
24 =A $ 0 8 O19] ASHL Gt MA ; 1621 | ; 
24 AE 000002A F CO o1 6 ADDL2 rs ob; ert : : 
0 AE OF OO1SE PUSHAB FDL FAB > 1624 ; 
AE 9F 00161 PUSHAB ByT : : 
000000006 00 % i 164 CALLS My sett : 
35 000000006 &F BO 16f MOVL Rb: INSVIRMEM, RO 1626 | ; 
oT. 20 A 00 0176 17$: MOVL FDL _FAB_PTR > 1630 : 
AE 00 6E C 3180 mOVCS Rs a6, “Bytes, (RB) : | : 
5 O2AE 9 18) MOVAB hosinns USERBUF > 1634, ; 
12 000000006 i be i 01 BBC #4, FOLSAB_CTRL+1, 188 > 1639 ; 
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18$: MOVCS 


19$: CMPB 


VAX-11 Bliss-32 V4.0-7 
R9, FDLSAB_FDL_STRING 

ADDR, FDLSAB_FDL_STRING+4 
#0, (SP), #0, #80, (RB) 


#206 (RB) 
14099958 BF eR) 
2(R8S 


4 
# R7) 
176(RB), 12(R7) 
#0, (SPS, #0, #68, SRMS_PTR 


#17409, S$RMS_PTR 
#512, $RMS_PTR+4 
#FDLS$_OPENFDL, SRMS_PTR+24 

SRMS_PTR+30 

FDLSGL_MAXLINE, SRMS_PTR+32 

USERBUF, $RMS_PTR+36 

8, SRMS_PTR+50 
LSS$RMS_OPEN_ERROR 

YSSOPEN 

RMS_OPEN_ERROR 


RNEC 
EADERR, FDLSAB_FDL_RAB+24 


BV VS ar "BVw™"D 
PO—-"WOF MUTTON @OYO 


1 

SP) 
$SGET_VM 
$AB_PARSED_F AB 
$$GE 


T_VM 
L$AB_PARSED_RAB 


1 
RO 
DLSABPARSED FAB’ R7 


r) 0483 (R7) 

#167 18 4(R7) 

#2, 22(R75 

#512, 29(R7) 

4 (She pans D_RAB, R9 
4 i (SP), erty (R9) 
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FDLSPARSE 
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sooo00dce 00 92900886 


000000006 


000000006 
engens | 
2F 000000006 
000000006 
000000006 


000000006 


000000006 
50 000000006 00 


BE 


; Routine Size: 899 bytes, Routine Base: 


2 ¥4.0-743 Page 2 | 
COL. SRCIFOLCALL.B32;1 (5). 


OOCOCOCCOO 


INE+4 
LSAB_LINE+4, = 
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_FDLSCODE + 022A 
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SE 1 ~Sep-19 4 933304 DLSKSVMSMASTERSEFDL SRCSFDLCALL.B32; 109° &) 


v0o=000 


3 3 
; 7 
3 3 
3 7 
; 1 
3% 
3 } 
3) 
3 
3; 
3 
3} 
3} 
3 
3) 
3 3 
3 
3 7 
; 1 
i 
3} 
3; 7 
3 7 
3 
3; 7 
3; Y 
3 3 
31 
3; 7 
3 y 
3 3 
3 7 
3 
3 
3 3 
3; 1 
3} 
3; 7 
3; 7 
3 7 
3 7 
3; 7 
31 
: 7 
ee 
3 7 
31 
3; 7 
3 7 
3 7 
eS | 
3 7 
3s 1 
$7 
3; 7 
3; 7 
3; 1 


7?30— 
rm 
mw 
> 


FIP DIDIDIIR YD at a st De ee ed ed od od ed a 


ZSBTTL Md ae vg 
GLOBAL ROUTINE FDLSRELEASE = 


vino 


' 
' Functional Description: 


This routine takes a FAB address or a RAB address or both and 
hy down the RMS control block chains and deallocates them 
or the user. 


DUPVPPVSISISISISI 


jeflelelelelelelelelo) 


Calling Sequence: 


WR OOONOUSE 


FREES 


fdl$release ( fab_pointer] 
,rab_pointer) 


flags 
* badbik-addr} ) 


SEF 


Input Parameters: 


fab_pointer - address of a longword containing the address 
of the FAB to deallocate (plus attachments) 


rab_pcinter - address of a longword containing the address 
of the RAB to deallocate (plus attachments) 
flags - address of flags longword (optional) 
FDL$V_SIGNAL signal errors instead of returning 


oOooooce°oo 
NOVUSWN OO OO~N 


Output Parameters: 


COMmMOo~n~ 
Wwr—O0Oew 


badbLk-addr - address of a longword to receive the address 
of the RMS control block that is invalid (optional) 


Implicit Outputs: 
none 


SSSsssssssSs 
Sette 


oo 
0 


Routine Value: 
none 


3 


Routines Called: 
fdl$$check_blocks 


Side Effects: 
none 


2359388 


i 
' 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
' 
i 
' 
i 
i 
' 
' 
! Implicit Inputs: 
none 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
4 
i 
i 
i 
ie 
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BEGIN 


VILTIN 
ACTUALCOUNT 
ACTUALPARAME TER; 
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RELEASE 1a-Sep- 3B2 as oe DISKSVMSMASTER:CFODL. 
LOCAL 
AB_POINTER : REF BLOCK ( ,BYTE J, 
RAB_POINTER : REF BLOCK | ,BYTE J, 
AB_POINTER : REF BLOCK { ,BYTE J, 
AM_POINTER : REF BLOCK | ,BYTE J, 
SAVE_POINTER : REF BLOCK | ,BYTE J, 
LAGS : REF BLOCK C ,BYTE J, 
STATUS LONG, 
OUNT : LONG; 


Setup to handle ACCVIOs and other trash 
LIBSESTABLISH ( HANDLER ); 
} Validate the arguments. 
COUNT = ACTUALCOUNT (); 
Clear the valid stmnt flag as a fix... should always be cleared on entry 
FDLSAB_CTRL C FDLSV_STVALID ] = _CLEAR; 
Z ( .COUNT LSS 1 ) OR ( .COUNT GTR 4 ) 
RETURN FDL$_ILL_ARG; 
Ist arg is address of longword containing address of FAB 
FAB_POINTER = ACTUALPARAMETER (1); 
2nd arg is address of longwerd containing address of RAB 
iv anal GTR 1 
-_ RAB_POINTER = ACTUALPARAMETER (2) 
RAB_POINTER = 0; 
3rd arg is address of flags longword 
IF .COUNT GTR 2 
THEN 
BEGIN 
FLAGS = ACTUALPARAMETER (3); 
If .FLAGS NEQU 0 
mag eee. C FOLSV_DCL J] = .FLAGS C FDLSV_SIGNAL J] 
FDLSAB_CTRL C FDLSV_DCL J = _CLEAR; 
END; 
4th arg is address of longword to receive address of bad block 
IF .COUNT GTR 3 


ones Pp 
SRC JFDLCALL.B32;1 
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DLSRELEASE 12-808-1 3b OF 3743 DT EKSUMEMASTERSCEDL SRCTFOLCALL 83251 . (6) 


3: 1164 1 THEN 

3; 1165 ¢ FDLSGL_INVBLK_PTR = ACTUALPARAMETER (4) 
; 1398 ELSE 

3 +e 4 : FDLSGL_INVBLK_PTR = 0; 

3 1198 § ' Get actual address of FAB 

; 1170 8 ! 

3 1171 888 IF .FAB_POINTER NEQU 0 

3 1176 889 TH 

3 117 890 FAB_POINTER = ..FAB_POINTER; 

3 1174 891 

3 1175 o3¢ ' Get actual address of RAB 

3; 1176 9 ‘ 

3 1177 894 IF .RAB_POINTER NEQU 0 

3: 1178 895 THEN 

3 1179 538 RAB_POINTER = ..RAB_POINTER; 

: 1180 89 

3 133) 43 Go check and deallocate the ctrl blocks 
3 1188 900 FDL$AB_CTRL C FDLSV_DEALLOC J) = _SET; 

: Bt pst FDLSSCRECK_BLOCKS (~.FAB_POINTER, .RAB_POINTER ); 
3 1186 308 RETURN SS$_NORMAL; 

3: 1187 904 

; 1188 905 1 END; 


003c¢ 00000 .ENTRY FDLSRELEASE, Save R2,R3,R4,R5 : 
55 000000006 00 9€ 00002 MOVAB FDLS$GL_INVBLK_PTR, R5 ; 
54 000000006 00 9€ 00009 MOVAB FDLSAB-CTRL, R4 : 
00000000v 00 9F 00010 PUSHAB HANDLE > 1836 
000000006 00 01 FB 90016 CALLS #1, LIBSESTABLISH ; 
51 6C 9A 0001D MOVZBL (AP), COUNT : 1840. 
02 Ad 04 8A 00020 BICB2 #4, FOLSAB_CTRL+2 : 1844 | 
51 D5 00024 TSTL COUNT > 1846 | 
03 15 00026 BLEQ ; 
04 1 D1 00028 CMPL OUNT, #4 : 
08 15 00028 BLEQ : 
50 000000006 8F p60 00 D 1$: MOVL #FDLS$_ILL_ARG, RO ; 1848 | 
53 04 ac 00 3 2$: MOVL  4(AP), FAB_POINTER ; 185 
01 51 D CMPL OUNT, #1 > 185 
06 15 C BLEQ ; 
52 08 AC 06 0055 MOVL B(AP), RAB_POINTER > 1858 
53 D4 S045 3$: CLRL - RAB_POINTER > 1860 
02 31 D} a8 A$: cHPL COURT, #2 > 1864 
50 Oc AC 00 00048 MOVL  12(AP), FLAGS > 1868 
08 1 AF BEQL ; 187 
01 03 0 FO | INsV (FLAGS), #3, #1, FOLSAB_CTRL+1 : 187 
01 AG 8 BA 0 9 5$: BICB2 #8, FDLSAB_CTRL+1 > 1874 
03 1 D1 D 6$: CMPL COUNT, #3 ; 1880 | 


— 


FDLCA VAX=11 FOL Utilities 1b-se Sep-1984 7:4 VAX=11 ss-32 V 32 
vO6=000 FDLSRELEASE ats 7 93: 31) 3 DISKS$V meh STER: cD BE SRCSFDLCALL. B32;1 a (6) 


06 1 BLEQ §67$ ; 
65 A p MOVL \OCaP), FDLS$GL_INVBLK_PTR : 1882. 
D4 7$ CLRL FOLSGL_INVBLK_PTR + 1884 | 
: A aS ist FAB. POINTER ; ets 
53 D MOVL (FAB_POINTER), FAB_POINTER + 1890 
p 9$ TSTL RAB_POINTER + 1894 | 
7 BEQL 10 : 
52 p 7 MOVL (RAB_POINTER) RAB_POINTER : 1896 
02 AG 78 10$ BISB2 #32,~FDLS$AB_CTRL+ + 190 
dD 0007C PUSHL RAB. POINTER + 1901 
DD 0007 PUSHL FAB-POINTER : 
000000006 90 6 FB CALLS 2, FDLS$SCHECK BLOCKS : 
1 pO 000 MOVL #1. RO + 1903 
04 OO0BA RET : 1905 


; Routine Size: 139 bytes, Routine Base: _FDLSCODE + OSAD | 


3 


4 6 
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12-808-13be es ee) I BL SRCSFOLCALL..B32:1 sa B 


32.4.0 
FDLSGENERATE R: CF 


€ 


3; 1190 1306 1 ZSBTTL ‘FDLSGENERATE' ; 
; 1191 19 1 GLOBAL ROUTINE FDLSGENERATE = ; 
MS ig : 
119% 1910 1 | Functional Description: ; 
> 1196 191¢ 1/ This routine produces an FDL SPEC. It is placed either in a char string, | ; 
3; 1197 1915 1! or in an FDL file. EVERY RMS FIELD IS INSPECTED AND OUTPUT (if the flag ; 
; 1198 1914 1! bit FDLSV_FULL_OUTPUT is set). : 
: 1199 1313 ! This is eSsentTally a picture of the RMS control blocks. : 
1201 1317 1 j Calling Sequence: | 
: 1 08 1919 1 | fdl$generate ( flags, ; 
: 1204 1920 1! fab_pointer, : 
: 1205 1921 1! rab_pointer 3 
3: 1206 19 ¢ 1! efdl_file_dst] : 
: 1207 19 1! -fdl_file_resnam) ; 
; 1208 19246 1! -fdl_str_dstJ : 
3; 1209 1925 1! ,bad_blk_addrJ : 
3 1311 1999 } -retlen] ) : 
: : \¢ : : ; Input Parameters: 3 
: 154 1980 1 flags - address cf flags longword (optional) | : 
3: 1215 1931 1! FDOLSV_SIGNA Signal errors instead of returning 3 
: 1216 1336 1! FDLSV_FDL_STRING output fdl-spec is a char string 3 
: 1217 1935 1! FOL$V_FULC_OUTPUT all RMS fields are to be output : 
; 1918 + $ ! FDL$V_$CALCBACK used by EDF : 
: 1220 1936 1! fab_pointer - address of a longword which holds the address of : 
: \$¢) 1332 } the FAB to be scanne ; 
: 1558 1939 1: rab_pointer - address of a longword which holds the address of ; 
; \sse He ' : the RAB to be scanned : 
: 1558 1942 1 i Implicit Inputs: | : 
ST yet oad 
: Hi Mb : ! Output Parameters: ; 
: 1231 1969 1! fdl_file_.dst - address of a string descriptor which holds the ; 
31 3 1948 1! filename of the FOL file to be output ; 
3 7 1949 1! (required if FOLSV_FDOL_STRING bit is NOT set, : 
3 ' : 1330 ! ignored otherwise) : 
5 1236 195¢ 1} fdl_file_resnam - address of a dynamic or varying string descr iptor | : 
: sz? 1955 1! which will hold the result name of the FDL file 3 
; ! 3 133e : that may be created by FDLSGENERATE (optional) : 
: 1529 1956 1/ fdl_str_dst - address of a dynamic or varying string descriptor ; 
: 1261 1957 1! which will hold the fdl Spec as a char string 3 
| ry! 1328 1! (required if FOLSV_FDL_STRING bit is set, 3 
3 ' oF 1323 : ignored otherwise : 
> 1245 1961 1! bad_blk_addr - address of a longword to receive the address of ; 
: 1246 1962 1! an invalid RMS control block, if detected (optional) : 
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Side Effects: 
none 


47 1963 : 
48 196 : retlen - address of longword to recieve length of the returned 
49 1965 ; string: either the fdl_file_resnam or the fdl_str_dst 
ey } (optional) 
26 ! Implicit Outputs: 
e7 none 
22 ' Routine Value: 
56 : 
57 : 
8 } Routines Called: 
60 ' 
' 
i 
i 


MIMI 
o 


CODODODODOODOODOOODOOOOOOOOOONOOO 


OOO OO OOO 00090909 09 09 SI NI NI INI NOAA 
CONAMAEWN OO ODNAUE WN SO OONAYLSWN (ODO ODNOUS 


: 1 1 

: } 

: 1 1 1 

. ¥ 1 1 

s 1 1 1 

. % 1 1 

s 1 1 1 

. 4 1 1 

s 3 1 1 

. 5 1 1 

. 3 1 1 

s ¥ 1 1 

i. 1 1 

3; 1261 1 1 

3 7 ; 1 1 

3; 126 1 1 

3: 1264 1 1 

3: 1265 1 1 | 
3: 1266 1 2 BEGIN 
3 \¢et 1 
3; 1268 1 BUILTIN 

3; 1269 1 ACTUAL COUN 
> 1270 1 ACTUALBARAME TER: | 
3 1271 1 
3 \$7¢ 1 LOCAL 

: \s? 1 RETLEN LONG, 

3 1274 1 S LONG, 

3; 1275 1 USERBUF LONG, 

$ 1576 19 UNT YTE, 
; 1277 19 LENGTH WORD, 
: 1$78 19 DR : LONG. 

: 1279 19 STATUS : 

> 1280 199 FDL_FAB_PTR : Rer SaLock [3 , Te j. 

3; 1281 199 FLAGS : REF rte 8B ° 

3 Ieee 199 FOL_FILE REF D a 

3; 128 1999 FDL_RESNAM EF DES Mee 

3: 1284 $900 NAME _BLOCK : REF DESC 
> 1285 001 TEMP~DESC : DESC_BLK PRESET ss = DSCS$K_CLASS_S, 

3: 1286 $008 = DSCSK_DTYPE_T ); 
: 1287 $00 
3 : 4 Boe Set up handler to control errors 

: 1290 696 LIBSESTABLISH ( HANDLER ); 

3; 1291 

3: 129 008 ' Check out the arguments 

: 129 009 i 

3 ! Be 19 COUNT = ACTUALCOUNT (); 

: 1<98 O18 Clear the valid stmnt flag as a fix... should always be cleared on entry 

3 1298 Bie FDLSAB_CTRL C FDLSV_STVALID ] = _CLEAR; 

$ 1800 O16 it ( .COUNT LSS 4 ) OR ( .COUNT GTR 8 ) 

:1 02 018 RETURN FDL$_ILL_ARG; 

; 130 019 


ict 


WA AAI RO PURPIPIPIPNAD 4 OOO oO 


WWWA.A AAW AAA 
WAWAWG 


FESEERESE 


OOO UNE WO OONOUES WO OOnN 


ee ee a a le a el el a el a ae ed ed ed 
PPV APPAPAMAWI 


FDLSGENERAT 


Morrone 


po lelolofleojlojojejlojojq) 


FRE AAAAAAAAM 
FW" OVOONOUSWN—OO 


065 
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-Sep-1 

FLAGS = ACTUALPARAMETER (1); 

FDLSAB-GENRAB = ACTOALPARARETER (9); 

Are the FAB and RAB kosher? 

IF ( .FDLSAB_GENFAB EQLU 0 ) OR ( .FDLSAB_GENRAB EQLU 0 ) 
RETURN FOL$_ILL_ARG; 

IF ( ..FDLSAB_GENFAB EQLU 0 ) OR ( ..FDLSAB_GENRAB EQLU 0 ) 
RETURN FDLS$_ILL_ARG; 

Get the ‘real’ control blocks 


FDLS$AB_GENFAB = ..FDL$AB_GENFAB; 
FDLS$AB_GENRAB = ..FDLSAB~GENRAB; 


FOL_FILE = ACTUALPARAMETER (4); 

IF .COUNT GTR 4 
FDL_RESNAM = ACTUALPARAMETER (5) 
FDL_RESNAM = 0; 

IF .COUNT GTR 5 

bs og nn OUT STRING = ACTUALPARAMETER (6) 
FDLSAB_OUT_STRING = 0; 

i eae GTR 6 
FDLSGL_INVBLK_PTR = ACTUALPARAMETER (7) 
FDL$GL_INVBLK_PTR = 0; 

Setup to output the length of the returned string if required. 


if .COUNT GTR 7 
THEN 


RETLEN = ACTUALPARAMETER (8) 
ELSE 
RETLEN = 0; 
Are the FAB and RAB good ones? 
gg Se. ere C FABSB_BID ) NEQU FABSC_BID 
BEGIN 
IF .FDLSGL_INVBLK_PTR NEQU 0 


7 
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GENERATE 14-Sep-1984 12:31:1 DISK SK$V Meh TER: CFDL. OSRCIFDLCALL. B32;1 age 3 
EN DLSGL_INVBLK_PTR = .FOLSAB_GENF AB; 
SIGNAL ( FOLS_INVBLK,1,.FOLSAB_GENFAB ); 
END; 
Raf eee C RAB$B_BID J] NEQU RABSC_BID 
BEGIN 
IF gFDLSGL_INVBLK_PTR NEQU 0 


V 
F 
990 .FDLS$GL_INVBLK_PTR = .FDLSAB_GENRAB; 
09 SIGNAL ( FDL$_INVBLK,1,.FDLS$AB_GENRAB ); 
094 END; | 
095 | 
4 
3 


Setup the flag bits 


END; 
! Make sure the args are self-consistent 


381 097 

382 098 FDLSAB_CTRL C FDLS$V_DCL J = _CLEAR; 

38 099 FOLSAB_CTRL { FOLSV-GCALL J = CLEAR; | 

384 100 FOLSAB_CTRL C FDL$V-STRING SPEC ) = CLEAR; 

385 101 FDLSAB_CTRL C FDLSV_FULLGER J = _CLEAR; 

389 IF .FLAGS NEQU 0 | 
88 THE 
e BEGIN 
91 FDLSAB_CTRL { FDLS$V_DCL ] = .FLAGS C FDLS$V_SIGNAL J; | 

335 FDLSAB_CTRL C FDL$V_GCALL ) = .FLAGS C FOLSV_S$CALLBAC 

39 FOLSAB_CTRL C FDOLSV-STRING SPEC ] = .FLAGS C7FDLS$V FDL linus 1; 

393 FDLSAB_CTRL C FDOLSV_FULLGEN J = .FLAGS C FOLS$vV_FULC_OUTPUT J; 

| 

a 

4 

4 

4 

4 


a a td od ot ot I I BOO OOOOOO 
DONO UE WN "CO OONO WE wr 


| 
j 
( “EDLSAB_CTRL C FDLSV_STRING_SPEC ] ) AND ( .FDLS$AB_OUT_STRING EQLU 0 )) | 
( NOT .FDLSAB_CTRL C FDL$V_STRING_SPEC ] ) AND ( .FDL_FILE EQLU 0 )) | 
RETURN FDL$_ILL_ARG; 

IF -FDLSAB_CTRL C FDLSV_STRING SPEC J 

RET_ON_ERROR ( LIBSANALYZE_SDESC ( .FDLSAB_OUT_STRING,LENGTH,ADDR ) ) 
LSE eT _ON_ERROR ( LIBSANALYZE_SDESC ( .FDL_FILE,LENGTH,ADDR ) ); 
IF (( NOT .FDLSAB_CTRL C FOLSV_STRING_SPEC ] ) AND ( .ADDR EQLU 0 )) 

RETURN FDL$_ILL_ARG; 
IF .FOLSAB_CTRL C FDLSV_STRING_SPEC ] 


' 
; 
I 
( 
( 
) 


ee ed el el el a ee el ee ee a ec ee ce ee ce ee ed ed ed ee 


a ee at od od ot 8 = 


ee ee ee 
QESRASLSSS 
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=30P 71382 aE oe DIEKSVMEHASTERSLYDL SACTFDLCALL 03254 . 3} 


N 
RET_ON_ERROR( LIBSSCOPY_R_DX(UPLIT(O) ,UPLIT(0),.FDLS$AB_OUT_STRING)); 


tilities 


wh 


1 
1 


mc 


1 
1 


a— 


THE 


Setup the output destination 
IF FDLSAB_CTRL C FDLS$V_STRING_SPEC ] 
BEGIN 


WIAA 


SODNAUE WN 0 ODNOAUE WN 0 DONA U EWN OOD NAU EWN OOODNOUES WW "OVOONOULF WI 


Setup the string buffer 
BYTES = FDLSK_MAXLINE; 
IF NOT LIBSGET_VM ( BYTES,USERBUF ) 
RETURN FDLS$_INSVIRMEM; 
CHSFILL ( 0,.BYTES,.USERBUF ); 
FDLS$AB_LINE ( DSCSA_POINTER J = .USERBUF; 
FDLSAB-LINE C DSCS$WILENGTH J) = FOLSK_MAXLINE; 


END 


ELSE 
BEGIN 
Set up the fab and name block 


ot ae ee et et et et et et et et et et et et et et et te 


Ww 


DONA W EWN O ODNOAUN EWN | DODNOUE WN “OVO ONOU SW —OVO 


! Find the number of bytes needed for all of this which is: 
spete for the fab, name block, expanded and resultant string buffers 
the user buffer in the rab. 


' The space is allocated: 


aes 
nam nam$k_bln 


expanded str buffer esa_buf_siz 


PPADS ES BBD EEE EEE 


resultant str buffer rsa_buf_siz 


user buffer fdl$k_maxline 


' Get the address space. NOTE: Since the user never sees this buffer we 
can deallocate it when we exit so use lLibSget_vm 


YTES = FABSK_BLN + NAMSK_BLN + ESA_BUF_SIZ + RSA_BUF_SIZ + 
FDLSK_MAXLINE; 


SALAS 


if ae LIBSGET_VM( BYTES, FDL_FAB_PTR ) 
RETURN FDLS_INSVIRMEM; 
! Jero the space 
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11 FOL_Utilities 16- 1984 01:37:45 AX-11 Bliss-32 V4.0-74 Pa 8 
GENERATE V4 71384 M331? DT SKSVMSMASTER CPDL. SRCSFDLCALL.B32: 1 ~e F 


<7" 
$2 
oa 
SF 


VAR, 
.FDL_FAB_PTR + FABSK_BLN ); | 


VAX 

FOL 
475 19 ' 
476 13 CHSFILL ( 0,.BYTES,.FDL_FAB_PTR ); 
of Set up the location of the user buffer 
480 19 USERBUF = .FDL_FAB_PTR + FABSK_BLN + NAMSK_BLN + ESA_BUF_SIZ + 
481 19 RSA_BUF _SIZ; 
Bs i? Initialize the FDL FILE fabs and rabs 
485 P 200 $FAB_INIT ( FAB = .FDL_FAB PTR, | 
486 Pp 0 CTX = FDLS"OPEROUT, 
4 P DNM = '.FOC', | 
289 p 556 ENS = LENGTH | 

3 e e 
490 p 590 FNA = “ADDR, 
491 P 220 FOP = <SQ0,NAM,MXV>, 
49 P 220 RAT = CR 
£94 P 221 RFM = 
495 1 NAM = 
496 1 
497 P 221 SNAM_INIT ( NAM = .FDL_FAB_PTR + FABSK_BLN, 
498 P 221 ESA = .FDL-FAB-PTR + FABSK~BLN + NAMSK_BLN, | 
499 Pp ESS = ESA BuF S12 | 
500 P RSA = .FDC_FAB_PTR + FABSK_BLN + NAMSK_BLN + ESA_BUF_SIZ, 
201 RSS = RSA_BUF_SIZ ); 
208 Pp SRAB_INIT ( RAB = FDLSAB_FDL_RAB, | 
504 Pp CTX = FDL$_OPENOOT, 
505 Pp FAB = .FDL-FAB_PTR, | 
206 Pp RAC = SEQ, | 
50 Pp ROP = WBH 
508 P RBF = USE BUF, 
509 P RSZ = FDLS$K_MAXLINE, 
Pp UBF = .USERBUF, 
USZ = FDLSK_MAXLINE ); 
Create the file 
SCREATE( FAB=.FDL_FAB_PTR,ERR=FDLS$RMS_OPEN_ERROR ); 


Connect a stream 

SCONNECT( RAB=FDLSAB_FDL_RAB,ERR=FDLSSRMS_OPEN_ERROR ); 
Errors from now on are write errors 

FDLSAB_FDL_RAB C RABSL_CTX J = FOLS_WRITEERR; 
Initialize the Line buffer 


FDLSAB_LINE { DSCSA_POINTER_) = .USERBUF; 
FDLSAB-LINE € DSCS$WILENGTH J = FOLSK_MAXLINE; 


Give the user the result name if he wants it 
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4.0-74 Page 9 
arHDL SRCSFDLCALL.B32;1°"" (7) 
IF .FDL_RESNAM NEQ 0 
THEN 

BEGIN 
IF ..FDL_RESNAM NEQ 0 
THEN 
BEGIN 
Locate the name block 


NAME_BLOCK = .FDL_FAB_PTR + FABSK_BLN; 


Ft 
Ooo 
Ww 


If a result name desc was given, stuff it with 
the best name for file which was created (or attempted) 


! 
| 
First try the resultant string 
if .NAME_BLOCK C NAMSB_RSL ] NEQU 0 | 
THEN 

BEGIN 


TEMP_DESC C DSCSW_LENGTH J] = .NAME BLOCK [_NAMSB_RSL J; 
TEMP_DESC C DSCSALPOINTER ] = .NAME_BLOCK C NAMSC_RSA 3; | 


RET_ON_ERROR( LIBSSCOPY_DXDX( TEMP_DESC,.FDL_RESNAM ) ); 
END 

Next try the expanded string 

44 4 IF .NAME_BLOCK C NAMSB_ESL J] NEQU 0 
BEGIN 


TEMP_DESC C DSCS$W_LENGTH J] = .NAME_BLOCK C_NAMSB_ESL ]: 
TEMP_DESC C DSCSALPOINTER ] = .NAME_BLOCK C NAMSC_ESA 3; 


| 
RET_ON_ERROR( LIBSSCOPY_DXDX( TEMP_DESC,.FDL_RESNAM ) ) 
| 
| 
} 
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END 
If all else fails use the name string 


ELSE 
BEGIN 


TEMP_DESC [ DSCSW_LENGTH ] = .FDL_FAB_PTR C FABSB_FNS J; 
TEMPDESC C DSCSA-POINTER J = .FDC_FAB_PTR C FABSC_FNA J; 


RET_ON_ERROR( LIBSSCOPY_DXDX( TEMP_DESC,.FDL_RESNAM ) ) 
END; 

Return the length if requested. 

If _ .RETLEN NEQ 0 

THEN 
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FOLCA VAX-11 FOL Utilities 16-Sep-1984 01:37:4 A 
V <060 FDLSGENERATE 18-Sep-1984 9} 3 +3 1 
a 88 Fi BEGIN 

4! 07 »RETLEN = .TEMP_DESC C DSCSW_LENGTH J; 

3 0 END; 

9% END; 

95 END; 

39 END; 

$38 Set up the control block blk 

00 FDLSAB_BLOCK_BLK [ FDLSC_FAB ] = .FDLSAB_GENFAB; 

01 FDLSAB_BLOCK_BLK [ FDL$C"RAB ) = .FDLSAB_GENRAB; 

Oe FOLSAB_BLOCK_BLK FDLSC_NAM = .FDLSAB_GENFAB C FABSL_NAM J; 

04 


SOCI-au 
3 


} Now go generate the FDL SPEC 
STATUS = FDLSSGEN_SPEC (); 
Return the length if requested. 
IF jFDLSAB_CTRL C FDLSV_STRING_SPEC J 
BEGIN 
IF .RETLEN NEQ 0 
THEN 
BEGIN 


LIBSANALYZE +4344 ( .FOLSAB_OUT_STRING,LENGTH,ADDR ); 


Se Se Se Oe Se Be Se Fe Ss Se Se Ge Se SH Se Se Se Se Se Se ese Se ee 


-RETLEN = .CENGT 


END; 
END; 


fon” -FDLSAB_CTRL C FDLSV_STRING_SPEC J 
BEGIN 
Close down the FDL file and exit 
SDISCONNECT( RAB=FDLSAB_FDL_RAB ); 
SCLOSE( FAB=.FDL_FAB_PTR ); 
Deallocate the memory for the fab etc 


a _ Puruewe bus 
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ae 


BEGIN 

LOCAL STATUS; 

Mf NOT ( STATUS = LIBSFREE_VM( BYTES, FDL_FAB_PTR )) 
SIGNAL_STOP ( .STATUS ); 

END; 
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END; 
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F pCa VAX=11 FOL Utilities 1 
v04- FDLSGENERATE 1 
; 16% 3368 ; RETURN .STATUS; 
3; 1648 64 END; 
4444 0004 
+ ae 0008 
4C 44 46 2E Q000C 
OFFC 00000 
5B 000000006 00 9€ 00002 
5A 00000000' 00 9€ 00009 
5E 1% 99018 
14 AE 010E0000 8F 00 0001 
18 AE 04 00018 
00000000vV 00 9F QOOIE 
0000000%G 00 01 FB 00024 
51 6C 90 00028 
02 AB 04 BA pps 
04 51 91 B38 
93 1E 0003 
013A 31 00037 
08 51 91 QOO3A 
F8 1A 00030 
52 04 Ac 34 0003F 
FC AA 08 AC 7D 00043 
50 FC AA DO 00048 
E9 13 0004C 
6A D0 Opes 
—E5 13 0005 
60 05 00052 
E1 13 00054 
53 6A OD 8838 
63 0D 0 
DA 1 pep 
FC AA 60 D D 
7 oA 4 061 
3 10 Ac O87 
04 51 1 6B 
ou RE OB RRS 
ot Sir 
05 Bf 48 
00000000G 00 18 ar of 1B 
06 8 bs 
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_FDLSPLIT,NOWRT,NOEXE, SHR, PIC,2 
\.FDL\ : 


FDLSAB_FDL_RAB 


_FDLSCODE ,NOWRT, 
POL SESHERATE Save 
R10,R11 


FOL$AB_CTRL, R11 
Wee GENRAB, R10 


#28, S$ 

#17694720, TEMP_DESC 
TEMP_DESC+4 

HANDLER 
#1, LIBSESTABLISH 
(AP), COUNT 

#4, FDLSAB_CTRL+2 
COUNT, #4 


SHR, PIC,2 
R2,R3,R4,R5,R6,R7,RB,RI,-; 


UNT, #8 
P), FLAGS 
P); FOLSAB_GENFAB 
$AB_GENFAB; RO 

AB_ 


L$AB_GENRAB 


$ 
) 

), FDLSAB_GENFAB 
she GENRAB, RO 

A 

(AP), FDL_RESNAM 
L_RESNAM 
UAT, #5 

(AP), FDLSAB_OUT_STRING 


AINE BLEIWO Sn TAS TS TS HOLS SONNY 


rig Page 
:CFOL.SRCJFDLCALL.B32;1 


41 
(7) | 


1907 


VAX-11 FDL Utilities 
FDLSGENERATE 


ict 


000000006 

000000CS 

000000006 

01 

o1 8 =AB 01 
50 62 
02 AB 01 
50 62 
01 AB 01 
50 62 
02 AB 01 
50 01 AB 


6 000000006 


00 


aS 


OOooooocoo 
DF SS 


oO 
~ 


So 
Mm 


000000006 00 


1¢ 
000000006 


20 
FC 


000000006 
000000006 
000000006 


000000006 
1818 


000000006 


4 
C 
seine 


0¢ 


o-0°0-00--90 = oc 


ONY FOO YP FVWNMV1IWO MO VMOM1OMNIOANVMNDO DONO (“ACO WDOUMOO PH FN10 F OMOSG FOMO 


WET MOOMM OW DOO FOWO 9 SVN MW 3 3 WOOD  F WS WI D — FW ONIN A "OOO F —$O 
DO MRHO MB ROWNWWNO NOON NOWNS DUSCOONON  ODTO DONWON Or OW RoOwe er 


OOQOQOooooooooooooooooooooooooooooooOoOCOOOOOOOOOOOOOOOOOOOOO 


“DO OO—9 OOM OM SO MMMM HM Nm nO > NOOCOTT-90 -olo NOCVUCO-—"— 
COOoOCCOCOCOCOCOOOCOSOSOCOSOCSOSOCSOSSSSSSSCSCOSCOSCOSOSCOOSCOOSOOOOSCOOCOSOoO 


-Sep-1984 37:4 VAX-11 Bliss-32 V4.0-74 Page 42 
~300 71 38% ee eee DISKSVMSMASTER: CFDL.SRCJFDLCALL.832;1 . (F 
5$: CLRL FDLSAB_OUT_STRING : 2051 
6$: CMPB COUNT, a : 3053 
BLEQU 4 : 
MOVL gB CAP), FDLS$GL_INVBLK_PTR + 2055. 
7$: CLRL  FDLSGL_INVBLK_PTR + 2057 
8$: CMPB 33s COUNT, "#7 ; 2061 
BLEQU 33 ; 
MOVL O(AP), RETLEN + 2064 | 
BRB 10$ : | 
9$: CLRL RETLEN + 2068 
10$ MOVL FDL AB GENF AB, R1 + 2072 | 
CMPBSs«(R1), : | 
BEQL 12$ : 
MOVL §§ FDLSGL_INVBLK_PTR, RO + 2076 | 
BEQL 11$ : | 
MOVL 1, (RO) + 2078) 
11$ PUSHL R1 + 2080 | 
PUSHL #1 : 
PUSHL #FDL$_INVBLK : 
CALLS #3, LYIBSSIGNAL : | 
12$ MOVL FDL$AB_GENRAB, R1 > 2086 | 
CMPBSs«(R'1), 1 : 
BEQL 148 : 
MOVL § FDLSGL_INVBLK_PTR, RO > 2088 
BEQL 138 : | 
MOVL 1, (RO) + 2090 
13$ PUSHL 1 + 2092 | 
PUSHL #1 : 
PUSHL #FDL$_INVBLK : | 
CALL #3, LIBSSIGNAL : 
14$: BICW2 #6168, FDLSAB_CTRL+1 : 3101 
TSTL FLAGS + 2103 
BEQL 15$ 3 
INSV (FLAGS), #3, #1, FOLSAB_CTRL+1 : 3107 
EXTZV #4, #1, R + 2108 
INSV RO. #3. #1, FOL$AB CTRL42 ; 
EXTZV #1. #1. (FLAGS), R > 2109 
INSV RO. #4. #1, FDL$AB_CTRL+1 : 
EXTZV #3. #1. (FLAGS), R ; 2110 | 
INSV = RO, «#4, #1, FDLSAB_CTRL* : | 
15$: EXTZV #4. FDL$AB_CTRC+1, R : 2117 
BLBC RO, «168 : | 
TSTL EDESAB_OUT _STRING ; 
BEQL 20 j 
BLBS RO, 17 > 2119 
16$: TSTL = FOL_FILE ; 
BEQL 208 ; | 
BLBC ~— RO, ‘188 : 3133 
17$ PUSHAB ADDR + 2125. 
PUSHAB LENGTH : 
PUSHL FDL SAB_OUT_STRING ; 
BRB 19 ; ' 
18$ PUSHAB ADDR > 2127 
PUSHAB LENGTH : 
PUSHL FDL FILE : 
19% CALLS #3, LIBSANALYZE_SDESC F 
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VOscObD F DLSGENERATE 14-Sep 71382 9: 33 DISKSVMSMASTER:CFDL. SRC IFDLCALL.B32; 429 ate) 
0 £9 00163 BLBC STATUS, 23$ : 
50 01 AB 3 $4 EF 18% EXTZV #4, #1. FDLSAB_CTRL*+1, RO + 2129 
10 0 E8 0016C BLBS RO, 22$ : 
04 Ar D 198 TSTL ADOR : 
9 1 172 BNEO = 218 : 
50 000000006 8F 06 126 208: OVL #FDLS$_ILL_ARG, RO : 2131 
1D 0 £9 0017C gis: BLBC = RO, 248 > 2133. 
000000006 DD O017F 22$: PUSHL FDL SAB _OUT_STRING + 2135. 
90000000" 09 oF 188 PUSHAB PLAAS irra 
000000006 99 FB o1 1 CALLS PsA “L1Bsscory. R_DX : 
1 Fg 0198 238: BLBS STAT : | 
30 01 AB 4 e 019C 24$: BBC 4 FDLSAB CTRL+1, 25$ > 2139) 
10 AE 0400 8F 3C OO1A1 MOVZWL #1024, BYTES + 2145 | 
—E DD Ora? PUSHL + 2167. 
16 AE 9F 001A9 PUSHAB BYTES : 
000000006 90 03 FB OO1AC CALLS #2, LIBSGET_VM 
10 AE 00 6E ‘ 00 5? 90186 MOVCS #0. (SP), #0, BYTES, @USERBUF : 2151 
000000006 00 6— D0 O01BE MOVL -USERBUF, FDLSAB_LINE+4 : 2152 | 
000000006 00 0400 ots i 001¢5 mov #1024, FDLSAB_LINE : 3133 
10 AE O6AE BF 3C 001D1 258:  mOVZWL #171 10, BYTES : $183 
0c AE 9F 00107 PUSHAB FDL_FAB_PT 3: 2186 
14 AE 9F QOO1DA PUSHAB BYTES ; 
000000006 00 09 re 9010p CALLS "2, LIB Ipscer _VM : 
08 50 E8 001E4 BLBS sé : | 
30 000000006 BF 0 OIE? 268: —HOVL BFOLS-INSVIRMEM, RO vite 
56 0c AE DO itt 27$:  MOVL FDL_F + 2192 | 
10 AE 00 bE 00 2¢ Oo1F s movcS #0," (epy "%. Re TES. (R6) 
6E O2AE C6 QE OOTFA WOVAB 686(R6), USERBUF + 2196 
0050 8F 00 6E 00 2¢ OO1FF movcS #0, (SPS, #0, #80, (R6) : 2211 
66 5003 8F BO 00 6 MOVW 420485 (R6) : 
04 A6 01000042 &F p0 020¢ MOVL #16777282, 4(R6) : 
16 A 1 0214 MOVB so] ge( 65 ; | 
ns) ee ee : 
1F ag rf $0 ° 6 MOVB $16) : 
5 50 A A MOVAB (Rd), R7 : 
8 Ab 5 06 MOVL 40(R6) ; | 
C Ab 04 Ar p 3 MOVL Rr R, 44(R6) ; | 
0 A 00000000" 0 ; MOVAB P.AAD, 48(R6) : 
4 Ab AE 9 F MOVS LENG GTH, 52(R6) : 
5 Ab 04 30 44 MOVB #4, 53(R6) ; 
0060 8F 00 6E 9 C 48 MOVCS #0, (SP), #0, #96, (R7) ; 2217 
67 6002 Ht 0 MOVW #24578, (R7) : 
> a 1 BE 5 MNEGB «#1, 2(R7) ; 
4 Av O1AF c¢ E MOV 4 1cR6) 4(R7) ; 
A A? 1 BE F MNEGB «#1, 10(R7) ; 
C aA? 0080 C6 9E 00263 V 176(R6), 12(R7) ; 
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FDLSGENERATE -Sep-19 DISKSVMSMASTER:CFDL.SRCIFDLCALL.B32:1 (7). 
0044 8F 00 6E . 00 2c E MOVCS #0, (SP), #0, #68, SRMS_PTR : 2227 
ee Toren 3 
DO =OAA 000006 86 ef 6 7 nOvL ## DLS OPEN OT, SRMS_PTR+24 : 
ae an come HF GBF it TH anc ; 
ie ee 0 a ! 
000000006 3 oF i PUSHAB FDLS$RMS~OPEN_ERROR : 2231 
000000006 00 2 FB 6 A CALLS aS SYSSCREATE ; 
Saaeey 00 9F 002A PUSHAB FDLS$RMS OPEN ERROR + 2235 
000000006 02 FB 0058 Sigg at ; 
+ 000000006 8F DO 002BC MOVL #FOLS WRITER, FDLSAB_ FDL_RAB+24 + 2239 
000000006 90 E DO 002C4 MOVL USERBO F, FDLSAB_L > 2263 
000000006 00 0400 8F BO 002CB MOVW #1024, FDLSAB_ Prhie > 2246 
cb Fe Hasge SIL Bynes Seas 
a ee ee fon 
50 57 v0 0020¢ MOVL a3 NAME _BLOCK : 3258 
SA Ty Re GEIP ula. st0t0 i 
16 AE 03 AO 9B 002E4 MOVZ2BW 3(NAME_BLOCK), TEMP_DESC : 3269 
18 «AE 04 AO DO 00269 OVL  4(NAME“BLOCK). TEMP~DESC+4 + 2270 
1B 11 OOZEE BRB 30$ F 3278 
0B Ad 3 0 f 28$: 1s18 11 (NAME BLOCK) ; 22? 
16 AE 0B AO 9B OOF MOVZ2BW 11(NAME_BLOCK), TEMP_DESC : 282 
18 AE 0c Ad 00 00 FA OVL 12 (NAME - BLOCK). TEMP™DESC+4 : 383 
16 AE 34 OA 98 00301 29$:  MOVZBW Bing), TEMP _DESC > 2294 
18 AE 2c Ab OD 00 06 MOVL  44(R6). TEMPTDESC+4 > 2295 
58 0D 0030B 30$:  PUSHL FDL RESNAM : 2297 
18 AE 9F 00300 PUSHAB TEMP DESC : 
000000006 00 9 FB 0 19 CALLS @ C153 COPY. DXDX 3 
01 F 031 BLBS STATUS, : 
4 OO31A RET : 
be 3 cose agar RST oo 
69 16 AE 3C OO3IF MOVZWL TEMP DESC, (ee : 3307, 
900000006 40 Fe ay OO Dose S28? ROME ABTS CERF APG pies! 
900000006 60 6A D ( MOVL FDL SAB_GENRAB FOE SAB BLOCK _BLK+4 + 2317) 
000000006 00 28 AO D MOVL 40(RO)7 FDOLSAB_BLOCK_BLK+1 : 18 
een ae 85 BB 003ae ROLES Bde EPL SRGEN.SPEC = 
20 01 «AB 4 €1 00347 BBC #4; FDLSAB_CTRL+1, 34$ : 3326 
9 D3 4C TSTL a ; 0 
17 1 4 BEQL «6-33 : | 
AE Hi PUSHAB ADDR > 2334. 
000000 , i DD 00386 PUSHL. FDLSAB_OUT STRING wee 
000000006 00 FB 0035C CALLS ae LIBSANALYZE_SDESC 


eg ark ee 
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DT SKSVMSMASTERSCFDL SRCSFDLCALL.B32: 1 af ( 
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000000006 00 
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_FDLSCODE + 0638 


925 bytes, Routine Base: 


3; Routine Size: 


4 7 
VAX=-11 FOL Utilities 1o~300-138% O} 374 VAX-11 Bliss-32 Fags Page 46 
ANDLER 14-Sep-1984 12:31:1 DISKSVMSMASTER:CFDL.SRCJFDLCALL.832;1 (8) 


ict 


HAND 
: 1650 65 1 XSBTTL. ‘HANDLER' 
; 1651 $ 1 ROUTINE HANDLER ( SIGNAL_VECTOR : REF BLOCK f -BYTE : 
; 16 67 1 MECH_VECTOR : REF BLOCK »BYTE )= 
S 188% ei 
: 192? 79 : ; Functional Description: 
: 188? i : ; Condition handler for the fdl parser 
: 1927 g ! Calling Sequence: 
: 1661 16 Input Parameters: 
; 1868 78 1! Implicit Inputs: 
1a ij 
; 1666 81 Output Parameters: 
> 1668 388 1/ Implicit Outputs: 
Beg Bb ey 
> 1671 386 1 | Routine Value: 
Hid Sls Boom 
> 1674 389 1 | Side Effects: 
3; 1675 390 1! none 
: 1676 $3) 1! 
; 1677 ie | 
; 1678 393 1 
: 1679 394 BEGIN | 
188) 396 LOCAL | 
: 168@ 397 CONDITION_CODE : BLOCK C 4,BYTE J; | 
3 Hee: 3400 : Get the condition code | 
; 1686 401 CONDITION_CODE = .SIGNAL_VECTOR C CHFSL_SIG_NAME J; | 
; 1on8 408 : If an unwind is in progress return | 
; 1690 405 iF ( .CONDITION_CODE EQLU SS$_UNWIND ) | 
; 169¢ 40? RETURN 0; 
> 169% 209 ' If this is not a warning skip it otherwise stuff the status 
; 192? aiy with the greater of the errors 
> 1697 41g if .CONDITION_CODE C STS$V_SEVERITY ] NEQU STSSK_INFO 
3 1on8 oi? THEN 
: 1900 415 ! If the current condition is ok OR this worse then anything weve seen 
: 179) a18 then make this the new error 
; 1708 418 iF .FDLSAB_CTRL C FOLS$V_STATUS J OR 
3 1708 41 ( TCONDITION_COBE C STS$V_SEVERITY J prey 
+ 1705 420 -POLSAB_CTRL C FDLSV_STATUS } ) 
3; 1706 2421 THEN 


a ed a dd 
SQN 
ot ot 2 2 I IO 


~N 
oo 
N 


ONOUSWN—"OO@ 


03 
50 
50 
63 


; Routine Size: 


Name 
_FDLSGLOBAL 
“FOL SOWN 
“FOLSCODE 


iY 7 
VAX-11 FDL Utilities o=3e0-12 4 4 91 gis VAX-11 Bliss-32 V4.0-7 
HANDLER 4-Sep-1984 12: DISKSVMSMASTER:CFDL. sre FDLCALL.B32; ie 
4 : FDLSAB_CTRL C FDLSV_STATUS J = .CONDITION_CODE C STSS$V_SEVERITY J; 
4 4 IF NOT .FDLSAB_CTRL C FDL$V_DCL 
4 : LIBS$SIG_TO_RET ( 
4 SIGNAL_VECTOR C CHFS$L_SIG ARGS }, 
428 MECH_VECTOR C CHFSL_MCH_AR 
i ; 
4 1 RETURN SS$_RESIGNAL 
138 1 END; 
000C 00000 HANDLER:.WORD Save R2,R3 
53 000000006 00 i 000 MOVAB FDLSAB_ CTRL a*3, 
52 04 AC DO 0000 MOVL § SIGNAL-VECTOR 
51 04 A2 DO 00000 MOVL 4(R2) ~ Eee fon CODE 
00000920 =F 31 D1 00011 CMPL  CONDITION_CODE, # 
2 13 00018 BEQL «6 4$ 
51 03 0 ED OO1A CMPZ2V #0, #3, CONDITION_CODE, #3 
14 13 O001F BEQL © -2$ 
63 03 99 EF 00021 EXTZV #0, #3, FDLSAB_CTRL, RO 
07 0 €8 00026 BLBS = -RO, -18 
51 03 00 ED 00029 CMPZ7vV #0, #3, CONDITION_CODE, RO 
05 18 000 é BLEQU 2$ 
03 09 51 FO 00030 1$: INSV CONDI T19N CODE, #0, #3, FDLSAB_CTRL 
0c 01 OA 03 £0 00035 2$: BBS #3, FOL$AB_CTRL+1, 3$ 
08 AC DD 0003A PUSHL MECH_VECTOR 
52 DD 0003p PUSHL R 
000000006 00 02 FB 0003F CALLS 188516, TO_RET 
50 0918 8F 3C 00046 3$: MOVZWL ; $28, RO 
04 00048 RET 
50 D4 0004C 4$: CLRL = RO 
04 0004E RET 
79 bytes, Routine Base: _FDLSCODE + 0905 
2434 1 
2435 0 END ELUDOM 
.EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 


76 movete WRT, RD ,NOEXE.NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
8 NOVEC, WRT, RD .NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(O) 
2596 NOVEC: NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


47 
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vO% 5006 ——— 18-s¢ opr 1 8Re PbS its Kee kUwBAAS FER Scho saeSrotcaue.032:1°% de 


>; JFOLSPLIT 16 NOVEC,NOWRT, RD ,NOEXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ee uee Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBIJSTARLET.L32;1 9776 120 1 581 00:00.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:FOLCALL/OBJ=OBJ$:FDLCALL MSRC$:FDLCALL/UPDATE=(ENHS$:FDLCALL) 
; Size: 2596 code + 100 data bytes 
i 00:58.2 


; Elapsed Time: 03:00.8 
; Lines/CPU Min: 2510 
; Lexemes/CPU-Min: 28086 

; nome Used: 369 pages 
; Compilation Complete 
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